/[gcl]/gcl/ansi-tests/aux.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/aux.lsp

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

revision 1.6 by pfdietz, Wed Oct 9 12:28:17 2002 UTC revision 1.7 by camm, Wed Oct 9 19:05:01 2002 UTC
# Line 202  the condition to go uncaught if it canno Line 202  the condition to go uncaught if it canno
202                  for c = (code-char i)                  for c = (code-char i)
203                  when c collect c)                  when c collect c)
204            'string))            'string))
 (defconstant +rev-code-chars+ (reverse +code-chars+))  
205    (defconstant +rev-code-chars+ (reverse +code-chars+))

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

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