From 2a6e3969aa696b6495448d0b5a5813c68a5a800f Mon Sep 17 00:00:00 2001 From: riton Date: Tue, 25 Mar 2025 00:02:06 +0300 Subject: =?UTF-8?q?code=20blo=C4=9Funda=20ba=C5=9Ftaki=20yeni=20sat=C4=B1r?= =?UTF-8?q?=C4=B1=20es=20ge=C3=A7?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- okur.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/okur.lisp b/okur.lisp index 583905f..67af1a2 100644 --- a/okur.lisp +++ b/okur.lisp @@ -124,10 +124,10 @@ (defmethod ayrıştır ((okur okur) (tag (eql :code))) (with-slots (i metin blok-son blok-baş) okur - (let ((kod-baş (+ blok-baş 3))) - (assert (string= "```" metin :start2 blok-baş :end2 kod-baş)) + (assert (string= "```" metin :start2 blok-baş :end2 (+ blok-baş 3))) + (let ((kod-baş (+ 1 (position #\Newline metin :start (+ blok-baş 3))))) (let ((kod (metin-parçası okur - (- (search "```" metin :start2 kod-baş) + (- (search "```" metin :from-end t :end2 blok-son) kod-baş) kod-baş))) (ebeveyn-node! :pre -- cgit v1.2.3