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

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

darcs-hash:20080923143621-f5546-2144bac3809269bce028e00a67ee8634ba8ef93d.gz
parent f21fef0b
......@@ -22,6 +22,15 @@
(loop for name being each hash-value of *readtable-names*
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
(progn
(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