From 73afd7d97d388962be4f272fcf476041f18e2e62 Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Thu, 11 Jul 2013 15:49:39 +0200 Subject: M-V-B: Add lexicals to the context. --- sb-eval2.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/sb-eval2.lisp b/sb-eval2.lisp index 6301be9..c7799e8 100644 --- a/sb-eval2.lisp +++ b/sb-eval2.lisp @@ -314,8 +314,9 @@ ((multiple-value-bind) ;; FIXME: SPECIAL declarations! (destructuring-bind (vars value-form &body body) (rest form) - (let ((value-form* (prepare-form value-form context)) - (body* (prepare-progn body context))) + (let* ((value-form* (prepare-form value-form context)) + (new-context (context-add-lexicals context vars)) + (body* (prepare-progn body new-context))) (lambda (env) (let* ((new-env (make-environment env)) (values (multiple-value-list (funcall value-form* env)))) -- cgit v1.2.3