From e90c7cc49bdc78739784c4af1e97920a2f0a0b3c Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Mon, 1 Sep 2003 13:52:34 +0000 Subject: [PATCH] Fixed silly extra args in error format statement. --- ansi-tests/reader-test.lsp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/ansi-tests/reader-test.lsp b/ansi-tests/reader-test.lsp index 5db7df0d..7de4fc67 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 -- GitLab