From d625b07e4491be03450675b19eb8ff63a3a5e4df Mon Sep 17 00:00:00 2001 From: colin Date: Sat, 30 Nov 2024 07:25:15 -0800 Subject: def:const evaluates early --- def.lisp | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/def.lisp b/def.lisp index 65fd695..055a30b 100644 --- a/def.lisp +++ b/def.lisp @@ -19,13 +19,14 @@ easily document uninitialized special variables." reevaluated." (assert (good-muffed-var-name-p name :muffer "+")) (let ((newval (gensym "NEWVAL-"))) - `(let ((,newval ,value)) - (handler-bind ((error - (lambda (&rest ignore) - (declare (ignore ignore)) - (invoke-restart 'cl:continue)))) - (makunbound ',name)) - (defconstant ,name ,newval ,@(when doc (list doc)))))) + `(eval-when (:compile-toplevel :load-toplevel :execute) + (let ((,newval ,value)) + (handler-bind ((error + (lambda (&rest ignore) + (declare (ignore ignore)) + (invoke-restart 'cl:continue)))) + (makunbound ',name)) + (defconstant ,name ,newval ,@(when doc (list doc))))))) (defmacro class (name (&rest supers) &body slots-and-options) "Define a class. -- cgit v1.2.3