Add #' to the reader

diff --git a/reader.lisp b/reader.lisp
index 9b8a127..d361e94 100644 (file)
--- a/reader.lisp
+++ b/reader.lisp
@@ -82,7 +82,14 @@
        (ls-read-1 stream))
       ((char= ch #\,)
        (%read-char stream)
-       (list 'comma (ls-read-1 stream)))
+       (if (eql (%peek-char stream) #\@)
+           (progn (%read-char stream) (list 'splicing (ls-read-1 stream)))
+           (list 'comma (ls-read-1 stream))))
+      ((char= ch #\#)
+       (%read-char stream)
+       (ecase (%read-char stream)
+         (#\'
+          (list 'function (ls-read-1 stream)))))
       (t
        (let ((string (read-until stream #'terminalp)))
          (if (every #'digit-char-p string)