diff --git a/ansi-tests/format-s.lsp b/ansi-tests/format-s.lsp index e61db541a2bd59c0080b95b5c5e6545c9856e341..9f49cc4bb3a9ae46400ca4e49f6805e54bb1509e 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)