From ec6e3b8530399f03406b16fa3b6dfab56008b8e8 Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Thu, 31 Jul 2008 12:53:52 +0200 Subject: Reader: Support #' and #.. --- sharpsign.lisp | 12 ++++++++++++ 1 file changed, 12 insertions(+) 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|)) -- cgit v1.2.3