From cc3703832439baceb0a84d042e7ff3340e3993c1 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Thu, 18 Jul 2013 17:10:18 +0200
Subject: Semi-fix LOCALLY.

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

diff --git a/sb-eval2.lisp b/sb-eval2.lisp
index 2b67360..843bacd 100644
--- a/sb-eval2.lisp
+++ b/sb-eval2.lisp
@@ -772,7 +772,8 @@
               ;; FIXME
               (prepare-form load-form)))
            ((locally)
-            (prepare-nil))
+            (destructuring-bind (&rest body) (rest form)
+              (prepare-progn body context)))
            ((multiple-value-call)
             (destructuring-bind (f &rest argforms) (rest form)
               (let ((f* (prepare-form f context))
-- 
cgit v1.2.3