Parent Directory | Revision Log | 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) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |