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

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

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

revision 1.3 by pfdietz, Sun Oct 13 01:24:40 2002 UTC revision 1.4 by pfdietz, Sun Oct 13 15:53:24 2002 UTC
# Line 215  the condition to go uncaught if it canno Line 215  the condition to go uncaught if it canno
215                 (rotatef (elt seq r) (elt seq (1- i))))))                 (rotatef (elt seq r) (elt seq (1- i))))))
216    seq)    seq)
217    
218  (defconstant +standard-chars+  (defparameter +standard-chars+
219    "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789~!@#$%^&*()_+|\\=-`{}[]:\";'<>?,./    "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789~!@#$%^&*()_+|\\=-`{}[]:\";'<>?,./
220  ")  ")
221    
222  (defconstant +alpha-chars+ (subseq +standard-chars+ 0 52))  (defparameter
223  (defconstant +lower-case-chars+ (subseq +alpha-chars+ 0 26))    +base-chars+ #.(concatenate 'string
224  (defconstant +upper-case-chars+ (subseq +alpha-chars+ 26 52))                                "abcdefghijklmnopqrstuvwxyz"
225  (defconstant +alphanumeric-chars+ (subseq +standard-chars+ 0 62))                                "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
226  (defconstant +digit-chars+ "0123456789")                                "0123456789"
227  (defconstant +extended-digit-chars+ "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ")                                "<,>.?/\"':;[{]}~`!@#$%^&*()_-+= \\|"))
228  (defconstant +code-chars+  
229    (defparameter +num-base-chars+ (length +base-chars+))
230    
231    
232    (defparameter +alpha-chars+ (subseq +standard-chars+ 0 52))
233    (defparameter +lower-case-chars+ (subseq +alpha-chars+ 0 26))
234    (defparameter +upper-case-chars+ (subseq +alpha-chars+ 26 52))
235    (defparameter +alphanumeric-chars+ (subseq +standard-chars+ 0 62))
236    (defparameter +digit-chars+ "0123456789")
237    (defparameter +extended-digit-chars+ "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ")
238    (defparameter +code-chars+
239    (coerce (loop for i from 0 below 256    (coerce (loop for i from 0 below 256
240                  for c = (code-char i)                  for c = (code-char i)
241                  when c collect c)                  when c collect c)
242            'string))            'string))
243  (defconstant +rev-code-chars+ (reverse +code-chars+))  (defparameter +rev-code-chars+ (reverse +code-chars+))

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

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