summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Andreas Benkard <matthias@benkard.de>2008-07-31 12:53:52 +0200
committerMatthias Andreas Benkard <matthias@benkard.de>2008-07-31 12:53:52 +0200
commitec6e3b8530399f03406b16fa3b6dfab56008b8e8 (patch)
tree60d2db0780f9bb3d759d870f558d9ed603b3fb28
parent3af9db88b84366172b7d200417ac77139b86aa5d (diff)
Reader: Support #' and #..
-rw-r--r--sharpsign.lisp12
1 files changed, 12 insertions, 0 deletions
diff --git a/sharpsign.lisp b/sharpsign.lisp
index 93b2f4c..2e353a9 100644
--- a/sharpsign.lisp
+++ b/sharpsign.lisp
@@ -29,3 +29,15 @@
"characterWithUnichar:"
92)
(function |#\-READER|))
+
+
+(defun |#'-READER| (stream char &optional arg)
+ `(function ,(read stream t nil t)))
+
+(set-dispatch-macro-character #\# #\' (function |#'-READER|))
+
+
+(defun |#.-READER| (stream char &optional arg)
+ (eval (read stream t nil t)))
+
+(set-dispatch-macro-character #\# #\. (function |#.-READER|))