diff options
-rw-r--r-- | okur.lisp | 10 |
1 files changed, 6 insertions, 4 deletions
@@ -207,11 +207,13 @@ (paragraf-ayrıştır 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 - (if (null blok-node) - nil - (cons blok-node (tümünü-ayrıştır okur)))))) + (öz okur)))) (defparameter *okur* (okur! "/home/riton/projects/html-jen/cheat.md")) |