From dd3fe5369d32ffd952c434070c220fbfe539a931 Mon Sep 17 00:00:00 2001 From: John Lorentzson Date: Wed, 9 Jul 2025 14:37:12 +0200 Subject: [PATCH] Fix column off-by-one error in source tracking --- wip-duuqnd/user-side-compiler/tokenizer.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/wip-duuqnd/user-side-compiler/tokenizer.lisp b/wip-duuqnd/user-side-compiler/tokenizer.lisp index 252d64d..fae6cc1 100644 --- a/wip-duuqnd/user-side-compiler/tokenizer.lisp +++ b/wip-duuqnd/user-side-compiler/tokenizer.lisp @@ -155,7 +155,6 @@ reading immediately. Should be a subset of *SPECIAL-TOKEN-CHARS*.") token-source (cons source (cons line column))))) (loop :for char := (read-char stream) :for next := (peek-char nil stream nil :eof) - :do (incf column) :do (cond ;; Break for next token at whitespace @@ -195,6 +194,7 @@ reading immediately. Should be a subset of *SPECIAL-TOKEN-CHARS*.") (next-token)) ((eql :eof next) (next-token))))) + :do (incf column) :until (eql :eof next))) (nreverse tokens)))