summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--sb-eval2.lisp7
1 files changed, 3 insertions, 4 deletions
diff --git a/sb-eval2.lisp b/sb-eval2.lisp
index e82dcbf..2f76de2 100644
--- a/sb-eval2.lisp
+++ b/sb-eval2.lisp
@@ -106,8 +106,7 @@
(let ((local-function-record (assoc f (environment-functions env) :test #'equal)))
(if local-function-record
(cdr local-function-record)
- ;; Global functions can be called through their function names.
- f))))
+ (fdefinition f)))))
(defun prepare-nil ()
(lambda (env) (declare (ignore env))))
@@ -177,8 +176,8 @@
(prepare-lambda (rest fun-form) context))
((sb-int:named-lambda)
(prepare-lambda (cddr fun-form) context))
- ((setf
- (prepare-function-ref fun-form context))))))))
+ ((setf)
+ (prepare-function-ref fun-form context)))))))
((lambda)
(prepare-lambda (rest form) context))
((setq)