From 585547442ecc4b80542b8f84c7de129ba8d8f7cb Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Wed, 17 Jul 2013 00:46:28 +0200
Subject: PREPARE-LAMBDA: Fix context.

---
 sb-eval2.lisp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'sb-eval2.lisp')

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)
-- 
cgit v1.2.3