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