diff options
| -rw-r--r-- | sb-eval2.lisp | 8 |
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)))))) |