# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1516150022 18000
# Node ID 7e4d5c6a9b2af7d8c559ee0abf01ae8718ce03bc
# Parent  85cfdad82fbd973361e112e1d070fe2c6c892032
Fix comment handling

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))