235 |
(rotatef (elt seq r) (elt seq (1- i)))))) |
(rotatef (elt seq r) (elt seq (1- i)))))) |
236 |
seq) |
seq) |
237 |
|
|
238 |
|
(defun make-list-expr (args) |
239 |
|
"Build an expression for computing (LIST . args), but that evades |
240 |
|
CALL-ARGUMENTS-LIMIT." |
241 |
|
(if (cddddr args) |
242 |
|
(list 'list* |
243 |
|
(first args) (second args) (third args) (fourth args) |
244 |
|
(make-list-expr (cddddr args))) |
245 |
|
(cons 'list args))) |
246 |
|
|
247 |
(defparameter +standard-chars+ |
(defparameter +standard-chars+ |
248 |
"abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789~!@#$%^&*()_+|\\=-`{}[]:\";'<>?,./ |
"abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789~!@#$%^&*()_+|\\=-`{}[]:\";'<>?,./ |
249 |
") |
") |