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.

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*)
(defmacro %with-readtable-iterator ((name readtable) &body body)
`(sb-reader:with-readtable-iterator (,name ,readtable) ,@body))
(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