From 9bcf5f61465b954837dea6472c7bdd6972d81f8b Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Thu, 13 Mar 2008 14:16:07 +0100 Subject: Add an internal reader macro for more readable type declarations. darcs-hash:362e46ca84f20400936f066b7c7335417dcffa82 --- Lisp/reader-syntax.lisp | 13 ------------- 1 file changed, 13 deletions(-) (limited to 'Lisp/reader-syntax.lisp') 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 () -- cgit v1.2.3