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") |