7e4d5c6a9b2a

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