Use new indirect function CONSTANT-VARIABLE.

ska80 · Sep 27, 2020 · 2dabdd3 · 2dabdd3
1 parent 61f5b95
commit 2dabdd3
Showing 1 changed file with 1 addition and 5 deletions.
diff --git a/Code/Data-and-control-flow-Clostrum/defconstant-defmacro.lisp b/Code/Data-and-control-flow-Clostrum/defconstant-defmacro.lisp
@@ -15,8 +15,4 @@
                  (make-instance 'sicl-environment:constant-variable-description
                    :value initial-value))))
        (eval-when (:load-toplevel :execute)
-         (let* ((,env-var (sicl-environment:global-environment))
-                (,client-var (sicl-environment:client ,env-var)))
-           (setf (sicl-environment:constant-variable
-                  ,client-var ,env-var ',name)
-                 ,initial-value))))))
+         (setf (constant-variable ',name) ,initial-value)))))