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