node->cons fonksiyonu, sadece test için

2025-03-23 19:57:07 +03:00
parent 99571117b7
commit 9a09f1577c
1 changed files with 9 additions and 0 deletions
--- 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"))