Call (SETF FDEFINITION) rather than the equivalent environment function.

ska80 · Sep 27, 2020 · 33aac44 · 33aac44
1 parent aa1649e
commit 33aac44
Showing 1 changed file with 8 additions and 11 deletions.
diff --git a/Code/Data-and-control-flow-Clostrum/defun-support.lisp b/Code/Data-and-control-flow-Clostrum/defun-support.lisp
@@ -16,15 +16,12 @@
                    (make-instance 'sicl-environment:simple-function-description
                      :lambda list ',lambda-list))))
          (eval-when (:load-toplevel :execute)
-           (let* ((,env-var (sicl-environment:global-environment))
-                  (,client-var (sicl-environment:client ,env-var)))
-             (setf (sicl-environment:fdefinition
-                    ,client-var ,env-var ',name)
-                   (lambda ,lambda-list
-                     ,@declarations
-                     ,@(if (null documentation)
-                           '()
-                           (list documentation))
-                     (block ,(if (symbolp name) name (second name))
-                       ,@forms))))
+           (setf (fdefinition ',name)
+                 (lambda ,lambda-list
+                   ,@declarations
+                   ,@(if (null documentation)
+                         '()
+                         (list documentation))
+                   (block ,(if (symbolp name) name (second name))
+                     ,@forms)))
            ',name)))))