Add scratch marker reader macro

iamFIREcracker · Jan 12, 2024 · d57a152 · d57a152
1 parent 84e30fb
commit d57a152
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/syntax.lisp b/syntax.lisp
@@ -12,3 +12,10 @@
   (set-macro-character #\] (get-macro-character #.(char ")" 0))))
 
 #+#:excluded (read (make-string-input-stream "[format t \"Hello, ~a!\" _]"))
+
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (defun sharp-semicolon-reader (stream sub-char numarg)
+    (declare (ignore sub-char numarg))
+    (loop :while (read-line stream nil nil))
+    (values))
+  (set-dispatch-macro-character #\# #\; #'sharp-semicolon-reader))