diff options
| author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2013-07-16 19:00:21 +0200 |
|---|---|---|
| committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2013-07-16 19:00:21 +0200 |
| commit | 041f6a97be0f8c0baca66825cbfa846f669644c4 (patch) | |
| tree | e38cb47f7d1886ab982deba8601a77d14aaf6b9b | |
| parent | bb282671042fe68f40653ef3fe70b5189418f898 (diff) | |
Add a small missed optimization.
| -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)) |