diff --git a/ansi-tests/reader-test.lsp b/ansi-tests/reader-test.lsp index 5db7df0d4a6da2e35e005be3c7b9ac7dd951e7b4..7de4fc678e3fb8fb7c87e2400d427458c25e6f27 100644 --- a/ansi-tests/reader-test.lsp +++ b/ansi-tests/reader-test.lsp @@ -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