summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--sb-eval2.lisp2
1 files changed, 1 insertions, 1 deletions
diff --git a/sb-eval2.lisp b/sb-eval2.lisp
index cb908b2..2b80efb 100644
--- a/sb-eval2.lisp
+++ b/sb-eval2.lisp
@@ -39,7 +39,7 @@
`(let* ((,size% ,size)
(,data% (make-array (list ,size%)))
(,var (%make-environment :parent ,parent :data ,data%)))
- (declare (type (mod #.+stack-max+) ,size%)
+ (declare (type (mod #.(1+ +stack-max+)) ,size%)
(dynamic-extent ,var)
(dynamic-extent ,data%))
,@body)))