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