diff options
| author | Matthias Andreas Benkard <matthias@benkard.de> | 2008-07-31 12:53:52 +0200 |
|---|---|---|
| committer | Matthias Andreas Benkard <matthias@benkard.de> | 2008-07-31 12:53:52 +0200 |
| commit | ec6e3b8530399f03406b16fa3b6dfab56008b8e8 (patch) | |
| tree | 60d2db0780f9bb3d759d870f558d9ed603b3fb28 | |
| parent | 3af9db88b84366172b7d200417ac77139b86aa5d (diff) | |
Reader: Support #' and #..
| -rw-r--r-- | sharpsign.lisp | 12 |
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|)) |