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

Minor fix.

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