diff options
| author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2013-07-19 22:21:33 +0200 |
|---|---|---|
| committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2013-07-19 22:21:33 +0200 |
| commit | b81174b5aa40b68484541e9b70c088799843f4c2 (patch) | |
| tree | bdef164bb52a1731991a7995fea4214291ad696f | |
| parent | f9d52b546a192a82f84f5f3e5b749d620bdb6323 (diff) | |
LAMBDA: Fix argument processing counter.
| -rw-r--r-- | sb-eval2.lisp | 5 |
1 files 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 |