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