summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Andreas Benkard <code@mail.matthias.benkard.de>2013-07-18 17:10:18 +0200
committerMatthias Andreas Benkard <code@mail.matthias.benkard.de>2013-07-18 17:10:18 +0200
commitcc3703832439baceb0a84d042e7ff3340e3993c1 (patch)
treee376e3547ad107900258b732d2477a2818df6f1e
parent715deb36c56699c767cab746a7c6341f0f2446a3 (diff)
Semi-fix LOCALLY.
-rw-r--r--sb-eval2.lisp3
1 files changed, 2 insertions, 1 deletions
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))