From 62c263853ce0ee2f6b5854d682bb7ab8d7c44a86 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Thu, 18 Jul 2013 14:55:06 +0200
Subject: Fix +STACK-MAX+ usage.

---
 sb-eval2.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)))
-- 
cgit v1.2.3