Merge pull request #159 from orodley/sharpsign-vertical-bar

Implement the sharpsign vertical bar reader macro.

src/read.lisp

@@ -287,6 +287,16 @@
                (push (subseq descriptor start) subdescriptors)
                `(oget *root* ,@(reverse subdescriptors)))
            (push (subseq descriptor start end) subdescriptors))))
+      (#\|
+       (labels ((read-til-bar-sharpsign ()
+                  (do ((ch (%read-char stream) (%read-char stream)))
+                    ((and (char= ch #\|) (char= (%peek-char stream) #\#))
+                     (%read-char stream))
+                    (when (and (char= ch #\#) (char= (%peek-char stream) #\|))
+                      (%read-char stream)
+                      (read-til-bar-sharpsign)))))
+         (read-til-bar-sharpsign)
+         (ls-read stream eof-error-p eof-value t)))
       (otherwise
        (cond
          ((and ch (digit-char-p ch))

tests/read.lisp

@@ -42,3 +42,9 @@
              (eql (nth 3 x) 5)
              (eq (nth 4 x) (nth 2 x)))))
 
+; SHARPSIGN VERTICAL-BAR
+(test (= (read-from-string "#||# 2")         2))
+(test (= (read-from-string "#||#2")          2))
+(test (= (read-from-string "#| #| |# |# 2")  2))
+(test (= (read-from-string "#|#$#%^&*&|# 2") 2))
+(test (= (read-from-string "#|||# 2")        2))