summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--sb-eval2.lisp8
1 files changed, 5 insertions, 3 deletions
diff --git a/sb-eval2.lisp b/sb-eval2.lisp
index 7ee46c5..ffaf0bd 100644
--- a/sb-eval2.lisp
+++ b/sb-eval2.lisp
@@ -233,9 +233,11 @@
(offset (lexical-offset lexical)))
(lambda (env)
(environment-value env nesting offset)))
- (lambda (env)
- (declare (ignore env))
- (fdefinition function-name))))
+ (let ((f* (sb-c::fdefinition-object function-name t)))
+ (lambda (env)
+ (declare (ignore env))
+ (or (sb-c::fdefn-fun f*)
+ (error 'undefined-function :name function-name))))))