summaryrefslogtreecommitdiff
path: root/sb-eval2.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'sb-eval2.lisp')
-rw-r--r--sb-eval2.lisp8
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