diff options
author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-13 14:16:07 +0100 |
---|---|---|
committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-13 14:16:07 +0100 |
commit | 9bcf5f61465b954837dea6472c7bdd6972d81f8b (patch) | |
tree | deda839153bf68ae02b912fd4e572abef8d84efb /Lisp/reader-syntax.lisp | |
parent | 507c9bd8238f634f4131620909125948b4f3693e (diff) |
Add an internal reader macro for more readable type declarations.
darcs-hash:362e46ca84f20400936f066b7c7335417dcffa82
Diffstat (limited to 'Lisp/reader-syntax.lisp')
-rw-r--r-- | Lisp/reader-syntax.lisp | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/Lisp/reader-syntax.lisp b/Lisp/reader-syntax.lisp index a8a4978..18174d2 100644 --- a/Lisp/reader-syntax.lisp +++ b/Lisp/reader-syntax.lisp @@ -20,19 +20,6 @@ (defvar *method-syntax-macro-chars* (list)) (defvar *bracket-syntax-macro-chars* (list)) -(defvar *readtable-stack* (list)) - - -(defun restore-readtable () - (when *readtable-stack* - (setq *readtable* (pop *readtable-stack*))) - (values)) - - -(defun save-readtable () - (push *readtable* *readtable-stack*) - (setq *readtable* (copy-readtable *readtable*)) - (values)) (defun enable-method-syntax () |