/[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.3 by pfdietz, Sat Oct 5 17:48:05 2002 UTC revision 1.4 by pfdietz, Sat Oct 5 20:32:49 2002 UTC
# Line 178  condition itself on other errors." Line 178  condition itself on other errors."
178                 (rotatef (elt seq r) (elt seq (1- i))))))                 (rotatef (elt seq r) (elt seq (1- i))))))
179    seq)    seq)
180    
181    (defconstant +standard-chars+
182      "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789~!@#$%^&*()_+|\\=-`{}[]:\";'<>?,./
183    ")
184    
185    (defconstant +alpha-chars+ (subseq +standard-chars+ 0 52))
186    (defconstant +alphanumeric-chars+ (subseq +standard-chars+ 0 62))
187    (defconstant +digit-chars+ "0123456789")
188    (defconstant +extended-digit-chars+ "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ")

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