From b81174b5aa40b68484541e9b70c088799843f4c2 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Fri, 19 Jul 2013 22:21:33 +0200
Subject: LAMBDA: Fix argument processing counter.

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

diff --git a/sb-eval2.lisp b/sb-eval2.lisp
index f8834d3..519d454 100644
--- a/sb-eval2.lisp
+++ b/sb-eval2.lisp
@@ -510,8 +510,8 @@
                                      ;; environment.
                                      (let ((dynvals (list))
                                            (dynvars (list)))
+                                       (incf i)
                                        (dolist (value values)
-                                         (incf i)
                                          (let ((varspec (pop my-varspecs)))
                                            (if (eq varspec :lexical)
                                                (progn
@@ -609,7 +609,8 @@
                                                        *new-env*)))
                                  (go aux)
                                rest
-                                 (assert (null my-default-values*))
+                                 (assert (null my-default-values*)
+                                         (my-default-values*))
                                  (when restp
                                    (push-args rest))
                                final-call
-- 
cgit v1.2.3