/[gcl]/gcl/ansi-tests/format-s.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/format-s.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by pfdietz, Sat Aug 7 23:02:26 2004 UTC revision 1.2 by pfdietz, Sat Oct 2 14:45:05 2004 UTC
# Line 58  Line 58 
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)

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26