diff options
Diffstat (limited to 'Lisp/internal-reader-syntax.lisp')
| -rw-r--r-- | Lisp/internal-reader-syntax.lisp | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/Lisp/internal-reader-syntax.lisp b/Lisp/internal-reader-syntax.lisp index 2c38534..2586b10 100644 --- a/Lisp/internal-reader-syntax.lisp +++ b/Lisp/internal-reader-syntax.lisp @@ -33,6 +33,12 @@ (values)) +(defun in-type-declaration-syntax () + (setq *readtable* (copy-readtable *readtable*)) + (set-dispatch-macro-character #\# #\? #'read-type-declaration) + (values)) + + (defun enable-type-declaration-syntax () (save-readtable) (set-dispatch-macro-character #\# #\? #'read-type-declaration) |