PREPARE-LAMBDA: Fix context.

1 files changed, 3 insertions, 2 deletions

diff --git a/sb-eval2.lisp b/sb-eval2.lisp
index 2aa98f5..9c0b7dc 100644
--- a/sb-eval2.lisp
+++ b/sb-eval2.lisp
@@ -378,9 +378,10 @@
              (default-values*
                (loop for default-value in default-values
                      for binding in (append optional keys aux)
-                     for var = (lambda-binding-main-var binding)
+                     for vars = (lambda-binding-vars binding)
                      collect (prepare-form default-value new-context)
-                     do (context-add-env-lexical! context var)))
+                     do (dolist (var vars)
+                          (context-add-env-lexical! new-context var))))
              (body* (prepare-progn body new-context))
              (unbound (gensym)))
         (macrolet ((handle-arguments (args env)