diff options
-rw-r--r-- | src/util.lisp | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/util.lisp b/src/util.lisp index 9f0a463..f0ca5cb 100644 --- a/src/util.lisp +++ b/src/util.lisp @@ -371,9 +371,10 @@ expansion as a starting point for your own DEFPACKAGE form for your consfig." (car args)) :int)) -(define-constant +alphanum+ - "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz" - :test #'string=) +(eval-when (:compile-toplevel :load-toplevel :execute) + (define-constant +alphanum+ + "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz" + :test #'string=)) (defun random-alphanumeric (length) "Return a random alphanumeric string of length LENGTH." |