diff options
| author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2013-07-20 17:22:45 +0200 |
|---|---|---|
| committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2013-07-20 17:22:45 +0200 |
| commit | 38bac42d9d8326497b7e591e400b3dba1e51017b (patch) | |
| tree | 09172132ea9e5d5efe6d52d5a25d0e054afd9a36 | |
| parent | 6667d5a1846f990281e01e404c73d48a2934369c (diff) | |
LAMBDA: Handle dynamically bound &REST arguments correctly.
| -rw-r--r-- | sb-eval2.lisp | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/sb-eval2.lisp b/sb-eval2.lisp index d80b17b..ed24380 100644 --- a/sb-eval2.lisp +++ b/sb-eval2.lisp @@ -627,6 +627,14 @@ rest (assert (null my-default-values*) (my-default-values*)) + (when (>= i (the fixnum + (1+ (the fixnum + (+ required-num + (the fixnum + (+ optional-num + key-num)) + aux-num))))) + (go final-call)) (when restp (push-args rest)) final-call |