From: David Vazquez <davazp@gmail.com>
Date: Sun, 16 Dec 2012 04:17:12 +0000 (+0000)
Subject: Add #' to the reader
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=e2cfa88321275784af6a1149ea18679b3dbea77f;p=jscl.git

Add #' to the reader
---

diff --git a/reader.lisp b/reader.lisp
index 9b8a127..d361e94 100644
--- 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)