Commit c0631f20 authored by pfdietz's avatar pfdietz

~:C doesn't do the right thing on graphic chars relative to ~S

parent 43838026
......@@ -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)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment