From d1b59223342cffa4d216a532b37afe118b1e93a6 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Thu, 11 Jul 2013 16:43:42 +0200
Subject: M-V-PROG1: Fix body evaluation.

---
 sb-eval2.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)))
-- 
cgit v1.2.3