test eklendi

ü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))