Commit e8d8a3e2 authored by pfdietz's avatar pfdietz

Also put the intermediate string into the error list.

parent c8915f7d
......@@ -46,7 +46,7 @@
(reader-error () :error)))))
(unless (funcall test obj obj2)
(list
(list obj obj2
(list obj str obj2
(list '*print-array* *print-array*)
(list '*print-base* *print-base*)
(list '*print-radix* *print-radix*)
......
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