Commit e90c7cc4 authored by pfdietz's avatar pfdietz
Browse files

Fixed silly extra args in error format statement.

parent 379e792f
......@@ -146,8 +146,9 @@
(unless (and (symbolp sym)
(eql nread (+ 4 actual-len))
(string-equal s2 (symbol-name sym)))
(format t "Symbol read failed: ~S (~S) read as ~S~%"
actual-string s2 sym :readably t)
(let ((*print-readably* t))
(format t "Symbol read failed: ~S (~S) read as ~S~%"
actual-string s2 sym))
t)))))))
(deftest read-symbol.9
......
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