diff options
Diffstat (limited to 'üretim.lisp')
| -rw-r--r-- | üretim.lisp | 18 |
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)) |