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|))