Commit 43f54da2 authored by Tobias C. Rittweiler's avatar Tobias C. Rittweiler
Browse files

Add implementation-dependent %WITH-READTABLE-ITERATOR. Only implemented for SBCL so far.

darcs-hash:20080923143621-f5546-2144bac3809269bce028e00a67ee8634ba8ef93d.gz
parent f21fef0b
...@@ -22,6 +22,15 @@ ...@@ -22,6 +22,15 @@
(loop for name being each hash-value of *readtable-names* (loop for name being each hash-value of *readtable-names*
collect name))) collect name)))
(declaim (inline %standard-readtable))
(defun %standard-readtable ()
#-sbcl (copy-readtable nil)
#+sbcl sb-reader:*standard-readtable*)
#+sbcl
(defmacro %with-readtable-iterator ((name readtable) &body body)
`(sb-reader:with-readtable-iterator (,name ,readtable) ,@body))
#-allegro #-allegro
(progn (progn
(defvar *named-readtables* (make-package (gensym "READTABLES+"))) (defvar *named-readtables* (make-package (gensym "READTABLES+")))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment