node->cons fonksiyonu, sadece test için

1 files changed, 9 insertions, 0 deletions

diff --git a/html-jen.lisp b/html-jen.lisp
index 41bc1c0..4bcf680 100644
--- a/html-jen.lisp
+++ b/html-jen.lisp
@@ -43,6 +43,15 @@
   (setf *yeni-satır* t))
 
 
+(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"))