diff options
| -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)) |