diff --git a/wip-duuqnd/user-side-compiler/error-handling.lisp b/wip-duuqnd/user-side-compiler/error-handling.lisp index ed4e95c..9e7a36e 100644 --- a/wip-duuqnd/user-side-compiler/error-handling.lisp +++ b/wip-duuqnd/user-side-compiler/error-handling.lisp @@ -8,7 +8,9 @@ :finally (return start)))) (subseq string start - (position #\Newline string :start (1+ start))))) + (if (< start (length string)) + (position #\Newline string :start (1+ start)) + nil)))) (defun point-out-source (source) (if (null source)