From c0631f20f0e2b8045d1daddc138dc80e4d90221b Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Sat, 2 Oct 2004 14:45:05 +0000
Subject: [PATCH] ~:C doesn't do the right thing on graphic chars relative to
 ~S

---
 ansi-tests/format-s.lsp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/ansi-tests/format-s.lsp b/ansi-tests/format-s.lsp
index e61db541..9f49cc4b 100644
--- a/ansi-tests/format-s.lsp
+++ b/ansi-tests/format-s.lsp
@@ -58,7 +58,9 @@
 	   for c = (code-char i)
 	   for s1 = (and c (format nil "#\\~:c" c))
 	   for s2 = (and c (format nil "~S" c))
-	   unless (or (null c) (eql c #\Space) (string= s1 s2))
+	   unless (or (null c)
+		      (graphic-char-p c)
+		      (string= s1 s2))
 	   do (incf count) and collect (list c s1 s2)
 	   when (> count 100) collect "count limit exceeded" and do (loop-finish))))
   nil)
-- 
GitLab