--- a/src/readtable.lisp Fri Dec 01 08:55:24 2023 -0500
+++ b/src/readtable.lisp Sun Dec 03 17:29:39 2023 -0500
@@ -1,4 +1,18 @@
(in-package :losh.readtable)
+
+(defun sharp-semicolon-reader (stream sub-char numarg)
+ (declare (ignore sub-char numarg))
+ (loop :while (read-line stream nil nil))
+ (values))
+
+(defun shebang-reader (stream sub-char numarg)
+ (declare (ignore sub-char numarg))
+ (read-line stream)
+ (values))
+
(named-readtables:defreadtable losh
- (:merge :standard losh.hash-tables::hash-table-constructor-syntax))
+ (:merge :standard losh.hash-tables::hash-table-constructor-syntax)
+ (:macro-char #\# :dispatch)
+ (:dispatch-macro-char #\# #\; #'sharp-semicolon-reader)
+ (:dispatch-macro-char #\# #\! #'shebang-reader))