diff options
| -rw-r--r-- | okur.lisp | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -48,11 +48,13 @@ (unless (son? okur (blok-son okur)) (with-slots (i uzunluk metin blok-son blok-baş) okur (let ((önceki-son blok-son) - (yeni-son (search blok-sonu metin :start2 blok-son))) + (yeni-son (search blok-sonu metin :start2 blok-son)) + ;; TODO kod bloğunun içinde yeni blok oluşmadan 2 yeni satır olabilir + ) (setf blok-son (if (numberp yeni-son) (+ 2 yeni-son) uzunluk) - blok-baş önceki-son + blok-baş önceki-son ;; TODO blok başındaki boşluk ve yeni satırları geç i blok-baş)))))) (defmethod boşluk-yut ((okur okur)) |