diff options
-rw-r--r-- | input.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -27,7 +27,7 @@ (make-input :file filename :data (str:read-file filename))) (defun generate-report (input message) - (let ((line 0) (column 0)) + (let ((line 1) (column 1)) (dotimes (i (input-cursor input)) (let ((c (char (input-data input) i))) (case c |