wip-duuqnd/user-side-compiler/error-handling.lisp

@@ -8,9 +8,7 @@
                      :finally (return start))))
     (subseq string
             start
-            (if (< start (length string))
-                (position #\Newline string :start (1+ start))
-                nil))))
+            (position #\Newline string :start (1+ start)))))
 
 (defun point-out-source (source)
   (if (null source)

wip-duuqnd/user-side-compiler/package.lisp

@@ -11,4 +11,4 @@
   (:export #:usc-init #:compile-string-to-bytes
            ;; Errors
            #:usc-error #:tokenizer-error #:missing-function-error
-           #:parser-error #:source))
+           #:parser-error))

wip-duuqnd/user-side-compiler/tokenizer.lisp

@@ -164,13 +164,13 @@ reading immediately. Should be a subset of *SPECIAL-TOKEN-CHARS*.")
                   (next-token))
                  ;; Process and add a newline
                  ((char= char #\Newline)
+                  (setf in-comment-p nil
+                        line (1+ line)
+                        column 0)
                   (unless (zerop (length token-text-buffer))
                     (next-token))
                   (vector-push #\Newline token-text-buffer)
-                  (next-token)
-                  (setf in-comment-p nil
-                        line (1+ line)
-                        column 0))
+                  (next-token))
                  ;; Starting a comment
                  ((and (member char *line-comment-chars* :test #'char=) (not in-comment-p))
                   (unless (zerop (length token-text-buffer))