Remove iteration clause from LOOP body code

Shirakumo · May 16, 2024 · a7c2049 · a7c2049
1 parent b7b50fd
commit a7c2049
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/parser.lisp b/parser.lisp
@@ -70,12 +70,12 @@
 
 (defun consume-whitespace ()
   (loop until (end-of-tokens-p)
-        for char = (peek)
-        do (if (or (char= char #\Space)
-                   (char= char #\Linefeed)
-                   (char= char #\Return))
-               (advance)
-               (return))))
+        do (let ((char (peek)))
+             (if (or (char= char #\Space)
+                     (char= char #\Linefeed)
+                     (char= char #\Return))
+                 (advance)
+                 (return)))))
 
 (defun consume-string (string)
   (let ((start *token-index*))