diff options
| -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 |