Skip to content
Snippets Groups Projects
Commit e90c7cc4 authored by pfdietz's avatar pfdietz
Browse files

Fixed silly extra args in error format statement.

parent 379e792f
No related branches found
No related tags found
No related merge requests found
...@@ -146,8 +146,9 @@ ...@@ -146,8 +146,9 @@
(unless (and (symbolp sym) (unless (and (symbolp sym)
(eql nread (+ 4 actual-len)) (eql nread (+ 4 actual-len))
(string-equal s2 (symbol-name sym))) (string-equal s2 (symbol-name sym)))
(format t "Symbol read failed: ~S (~S) read as ~S~%" (let ((*print-readably* t))
actual-string s2 sym :readably t) (format t "Symbol read failed: ~S (~S) read as ~S~%"
actual-string s2 sym))
t))))))) t)))))))
(deftest read-symbol.9 (deftest read-symbol.9
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment