summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Andreas Benkard <code@mail.matthias.benkard.de>2013-07-11 16:43:42 +0200
committerMatthias Andreas Benkard <code@mail.matthias.benkard.de>2013-07-11 16:43:42 +0200
commitd1b59223342cffa4d216a532b37afe118b1e93a6 (patch)
tree8e829a18abc3901096702e0f201a5b0f16568a8b
parent6b446b2903a074992a9ddce1395146c58f8a3065 (diff)
M-V-PROG1: Fix body evaluation.
-rw-r--r--sb-eval2.lisp2
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)))