diff options
author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-13 19:16:30 +0100 |
---|---|---|
committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-13 19:16:30 +0100 |
commit | bdc0a27be6ce7636addcf7b0054de244859af74e (patch) | |
tree | 8ca95dbd95cf983613b3dbdf8209e5d9d1b46868 /Lisp/internal-reader-syntax.lisp | |
parent | a7a08e54c0d31f91fc5058c12c72125dcde82c24 (diff) |
Make use of the fact that readtables are file-local.
darcs-hash:d07bd4cb573f8d4fa226cca8a1da1e39837b5757
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) |