diff options
| author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2013-07-18 17:10:18 +0200 |
|---|---|---|
| committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2013-07-18 17:10:18 +0200 |
| commit | cc3703832439baceb0a84d042e7ff3340e3993c1 (patch) | |
| tree | e376e3547ad107900258b732d2477a2818df6f1e | |
| parent | 715deb36c56699c767cab746a7c6341f0f2446a3 (diff) | |
Semi-fix LOCALLY.
| -rw-r--r-- | sb-eval2.lisp | 3 |
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)) |