Commit 9c7fb975 authored by Tobias C. Rittweiler's avatar Tobias C. Rittweiler
Browse files

Minor fix.

parent 94db450e
......@@ -325,7 +325,7 @@ guaranteed to be fresh, but may contain duplicates."
(defvar *empty-readtable*
(let ((readtable (copy-readtable nil)))
(do-readtable (char readtable)
(set-syntax-from-char char #\A readtable (%standard-readtable)))
(set-syntax-from-char char #\A readtable *standard-readtable*))
;; FIXME: Alas, on SBCL, SET-SYNTAX-FROM-CHAR does not get rid of a
;; readtable's dispatch table properly.
#+sbcl (setf (sb-impl::dispatch-tables readtable) nil)
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