summaryrefslogtreecommitdiff
path: root/sb-eval2.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'sb-eval2.lisp')
-rw-r--r--sb-eval2.lisp3
1 files changed, 2 insertions, 1 deletions
diff --git a/sb-eval2.lisp b/sb-eval2.lisp
index 89596f5..a9a28a1 100644
--- a/sb-eval2.lisp
+++ b/sb-eval2.lisp
@@ -603,7 +603,8 @@
(x (getf rest key unbound)))
(if (eq unbound x)
(progn
- (push-args (the eval-closure val*) nil))
+ (push-args (funcall (the eval-closure val*) new-env)
+ nil))
(progn
(push-args x t))))
(go keys)