diff options
-rw-r--r-- | okur.lisp | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -187,7 +187,9 @@ (pushla-ve-ayrıştır :b "**") (pushla-ve-ayrıştır :i "*"))) (t (incf i))) - :finally (when (/= baş i) + :finally (loop :while (char= #\Newline (char metin (- i 1))) + :do (decf i)) + (when (/= baş i) (push (metin-parçası okur (- i baş) baş) elementler))) (ebeveyn-node! :p (reverse elementler)))))) |