58 |
for c = (code-char i) |
for c = (code-char i) |
59 |
for s1 = (and c (format nil "#\\~:c" c)) |
for s1 = (and c (format nil "#\\~:c" c)) |
60 |
for s2 = (and c (format nil "~S" c)) |
for s2 = (and c (format nil "~S" c)) |
61 |
unless (or (null c) (eql c #\Space) (string= s1 s2)) |
unless (or (null c) |
62 |
|
(graphic-char-p c) |
63 |
|
(string= s1 s2)) |
64 |
do (incf count) and collect (list c s1 s2) |
do (incf count) and collect (list c s1 s2) |
65 |
when (> count 100) collect "count limit exceeded" and do (loop-finish)))) |
when (> count 100) collect "count limit exceeded" and do (loop-finish)))) |
66 |
nil) |
nil) |