From 6a90bc2c3a2fb77a66c19e7400ea0e2fec410e26 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Juan=20Manuel=20Tom=C3=A1s?= <jtomas1815@gmail.com>
Date: Sun, 30 Oct 2022 17:51:30 -0300
Subject: Index lines and columns from 1 like most text editors

---
 input.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
cgit v1.2.3