From 041f6a97be0f8c0baca66825cbfa846f669644c4 Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Tue, 16 Jul 2013 19:00:21 +0200 Subject: Add a small missed optimization. --- sb-eval2.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)) -- cgit v1.2.3