From 2402ec5d9f568643775df42c2b977455fc1f66d0 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sun, 28 Nov 2021 18:55:55 -0700 Subject: define +ALPHANUM+ at compile time too Necessary because we use #.(length +alphanum+) later in the file. Reported-by: Yehouda Harpaz Signed-off-by: Sean Whitton --- src/util.lisp | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'src') 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." -- cgit v1.2.3