/[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.4 by pfdietz, Sat Oct 5 20:32:49 2002 UTC revision 1.5 by pfdietz, Sun Oct 6 03:24:10 2002 UTC
# Line 183  condition itself on other errors." Line 183  condition itself on other errors."
183  ")  ")
184    
185  (defconstant +alpha-chars+ (subseq +standard-chars+ 0 52))  (defconstant +alpha-chars+ (subseq +standard-chars+ 0 52))
186    (defconstant +lower-case-chars+ (subseq +alpha-chars+ 0 26))
187    (defconstant +upper-case-chars+ (subseq +alpha-chars+ 26 52))
188  (defconstant +alphanumeric-chars+ (subseq +standard-chars+ 0 62))  (defconstant +alphanumeric-chars+ (subseq +standard-chars+ 0 62))
189  (defconstant +digit-chars+ "0123456789")  (defconstant +digit-chars+ "0123456789")
 (defconstant +extended-digit-chars+ "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ")  
190    (defconstant +extended-digit-chars+ "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ")
191    (defconstant +code-chars+
192      (coerce (loop for i from 0 below 256
193                    for c = (code-char i)
194                    when c collect c)
195              'string))
196    (defconstant +rev-code-chars+ (reverse +code-chars+))

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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