test eklendi

1 files changed, 0 insertions, 18 deletions

diff --git a/üretim.lisp b/üretim.lisp
index 6cbc344..3b3530d 100644
--- a/üretim.lisp
+++ b/üretim.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))