From e2cfa88321275784af6a1149ea18679b3dbea77f Mon Sep 17 00:00:00 2001 From: David Vazquez Date: Sun, 16 Dec 2012 04:17:12 +0000 Subject: [PATCH] Add #' to the reader --- reader.lisp | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) 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) -- 1.7.10.4