simyager/html-jen
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

bug fix, repl de eski tanımı kullandığı için gözden kaçmış

Browse Source
This commit is contained in:
riton
2025-03-24 02:06:48 +03:00
parent 052753e4a3
commit 4b96a87aaa
1 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
okur.lisp
View File

@@ -207,11 +207,13 @@
(paragraf-ayrıştır okur))))))) (paragraf-ayrıştır okur)))))))
(defmethod markdown-ayrıştır ((okur okur)) (defmethod markdown-ayrıştır ((okur okur))
(let ((blok-node (blok-ayrıştır okur))) (labels ((öz (okur)
(let ((blok-node (blok-ayrıştır okur)))
(if (null blok-node)
nil
(cons blok-node (öz okur))))))
(ebeveyn-node! :div (ebeveyn-node! :div
(if (null blok-node) (öz okur))))
nil
(cons blok-node (tümünü-ayrıştır okur))))))
(defparameter *okur* (okur! "/home/riton/projects/html-jen/cheat.md")) (defparameter *okur* (okur! "/home/riton/projects/html-jen/cheat.md"))