summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--sb-eval2.lisp2
1 files changed, 1 insertions, 1 deletions
diff --git a/sb-eval2.lisp b/sb-eval2.lisp
index 7fabdf2..1689d34 100644
--- a/sb-eval2.lisp
+++ b/sb-eval2.lisp
@@ -653,7 +653,7 @@
(let ((f* (prepare-form f context))
(argforms* (mapcar (lambda (x) (prepare-form x context)) argforms)))
(lambda (env)
- (apply f* (mapcan (lambda (arg) (multiple-value-list (funcall arg env))) argforms*))))))
+ (apply f* (mapcan (lambda (arg) (multiple-value-list (funcall (the eval-closure arg) env))) argforms*))))))
((multiple-value-prog1)
(destructuring-bind (values-form &body body) (rest form)
(let ((values-form* (prepare-form values-form context))