Commit 449110b3 authored by pfdietz's avatar pfdietz

Fixed up readable printing test by rebinding *readtable* to the standard...

Fixed up readable printing test by rebinding *readtable* to the standard readtable when rereading the printed form
parent 7bab8dc8
......@@ -50,7 +50,8 @@
(let* ((str (with-output-to-string (s) (write obj :stream s)))
(obj2 (let ((*read-base* *print-base*))
(handler-case
(read-from-string str)
(let ((*readtable* (copy-readtable nil)))
(read-from-string str))
(reader-error () :error)))))
(unless (funcall test obj obj2)
(list
......
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