From 9a09f1577cdb89c17250ff66a9d7152aca65585b Mon Sep 17 00:00:00 2001
From: riton <riton@riton.home>
Date: Sun, 23 Mar 2025 19:57:07 +0300
Subject: =?UTF-8?q?node->cons=20fonksiyonu,=20sadece=20test=20i=C3=A7in?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 html-jen.lisp | 9 +++++++++
 1 file changed, 9 insertions(+)

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"))
-- 
cgit v1.2.3