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