7e4d5c6a9b2a

Fix comment handling
[view raw] [browse files]
author Steve Losh <steve@stevelosh.com>
date Tue, 16 Jan 2018 19:47:02 -0500
parents 85cfdad82fbd
children b8cc0a56b57e
branches/tags (none)
files src/main.lisp

Changes

diff -r 85cfdad82fbd -r 7e4d5c6a9b2a src/main.lisp
--- a/src/main.lisp	Tue Jan 16 19:42:40 2018 -0500
+++ b/src/main.lisp	Tue Jan 16 19:47:02 2018 -0500
@@ -6,8 +6,8 @@
   (read-char stream nil nil))
 
 (defun skip-whitespace (stream)
-  (when (eql #\# (peek-char t stream nil nil))
-    (skip-comment stream)))
+  (loop :while (eql #\# (peek-char t stream nil nil))
+        :do (skip-comment stream)))
 
 (defun peek (stream)
   (peek-char nil stream nil nil))