From 6a90bc2c3a2fb77a66c19e7400ea0e2fec410e26 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Juan=20Manuel=20Tom=C3=A1s?= 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(-) (limited to 'input.lisp') 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