Index lines and columns from 1 like most text editors

1 files changed, 1 insertions, 1 deletions

diff --git a/input.lisp b/input.lisp
index d6dd4b3..3e646b4 100644
--- a/input.lisp
+++ b/input.lisp
@@ -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