From 4b494af46035e80bb741881c1717c789638607c5 Mon Sep 17 00:00:00 2001 From: riton Date: Wed, 26 Mar 2025 22:04:43 +0300 Subject: test eklendi --- "\303\274retim.lisp" | 18 ------------------ 1 file changed, 18 deletions(-) (limited to 'üretim.lisp') diff --git "a/\303\274retim.lisp" "b/\303\274retim.lisp" index 6cbc344..3b3530d 100644 --- "a/\303\274retim.lisp" +++ "b/\303\274retim.lisp" @@ -62,21 +62,3 @@ (when (tag-sonu-yeni-satır? (tag node)) (yeni-satır-yaz stream))) - -(defun node->cons (node) - "node u listeye çevirir." - (if (stringp node) - node - (if (null (children node)) - (list (tag node) (props node) (value node)) - (append (list (tag node) (props node)) - (mapcar #'node->cons (children node)))))) - -(defparameter bir-node - (node! :html (list (node! :head - (list (node! :title nil nil "başlık")) - nil nil) - (node! :body - (list (node! :p nil '(:color "red") "içerik")) - nil nil)) - nil nil)) -- cgit v1.2.3