From bdc0a27be6ce7636addcf7b0054de244859af74e Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Thu, 13 Mar 2008 19:16:30 +0100 Subject: Make use of the fact that readtables are file-local. darcs-hash:d07bd4cb573f8d4fa226cca8a1da1e39837b5757 --- Lisp/internal-reader-syntax.lisp | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'Lisp/internal-reader-syntax.lisp') 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) -- cgit v1.2.3