diff options
| author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2013-07-11 16:43:42 +0200 |
|---|---|---|
| committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2013-07-11 16:43:42 +0200 |
| commit | d1b59223342cffa4d216a532b37afe118b1e93a6 (patch) | |
| tree | 8e829a18abc3901096702e0f201a5b0f16568a8b | |
| parent | 6b446b2903a074992a9ddce1395146c58f8a3065 (diff) | |
M-V-PROG1: Fix body evaluation.
| -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 7da5447..e82dcbf 100644 --- a/sb-eval2.lisp +++ b/sb-eval2.lisp @@ -301,7 +301,7 @@ (lambda (env) (multiple-value-prog1 (funcall values-form* env) - (funcall body*)))))) + (funcall body* env)))))) ((multiple-value-setq) (destructuring-bind (vars values-form) (rest form) (let ((values-form* (prepare-form values-form context))) |