Fix the use of native Lisp symbols as Treep symbols

alessiostalla · Mar 16, 2024 · e7eb13a · e7eb13a
1 parent 3cc29da
commit e7eb13a
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/level0/forms.lisp b/src/level0/forms.lisp
@@ -37,8 +37,9 @@
   (declare (ignore initargs))
   (find-class 'effective-form-slot-definition))
 
-(defconstant +symbol-form+        (intern "form"   +symbol-treep+))
-(defconstant +symbol-form-parent+ (intern "parent" +symbol-form+))
+;; These ought to be constant but SBCL complains about redefinition because they're not identical between compile-time and load-time
+(defvar +symbol-form+        (intern "form"   +symbol-treep+))
+(defvar +symbol-form-parent+ (intern "parent" +symbol-form+))
 
 (defclass form ()
   ((parent :accessor form-parent))