From 66b6d675055eb8a5017376eb6f43d609887d1289 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Juan=20Manuel=20Tom=C3=A1s?= Date: Sun, 15 Jun 2025 03:49:14 -0300 Subject: Update parser interface --- input.lisp | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) (limited to 'input.lisp') diff --git a/input.lisp b/input.lisp index 5d6a162..e464d0e 100644 --- a/input.lisp +++ b/input.lisp @@ -35,10 +35,9 @@ (format stream "...")) (format stream "~a" (substitute #\↲ #\Newline (subseq (input-data obj) begin (input-cursor obj)))) - (if (< (input-cursor obj) (length (input-data obj))) + (when (< (input-cursor obj) (length (input-data obj))) (format stream "~a~a" (substitute #\↲ #\Newline (subseq (input-data obj) (input-cursor obj) (1+ (input-cursor obj)))) - (substitute #\↲ #\Newline (subseq (input-data obj) (1+ (input-cursor obj)) end))) - (format stream "¬")) - (when (< end (length (input-data obj))) - (format stream "..."))))) + (substitute #\↲ #\Newline (subseq (input-data obj) (1+ (input-cursor obj)) end)))) + (when (< end (length (input-data obj))) + (format stream "..."))))) -- cgit v1.2.3