/[gcl]/gcl/ansi-tests/with-output-to-string.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/with-output-to-string.lsp

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

revision 1.2 by pfdietz, Thu Oct 7 01:14:06 2004 UTC revision 1.3 by pfdietz, Mon Oct 25 14:41:53 2004 UTC
# Line 97  Line 97 
97                   (loop for i below 256                   (loop for i below 256
98                         for c = (code-char i)                         for c = (code-char i)
99                         when (typep c 'base-char)                         when (typep c 'base-char)
100                         do (write-char c s)                         do (progn (write-char c s)
101                         do (vector-push c str1)))))                                   (vector-push c str1))))))
102      (if (string= str1 str2) :good      (if (string= str1 str2) :good
103        (list str1 str2)))        (list str1 str2)))
104    :good)    :good)

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

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