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