0.7.1.47:

[sbcl.git] / src / code / fop.lisp

diff --git a/src/code/fop.lisp b/src/code/fop.lisp
index 514d631..ea2ceef 100644 (file)
--- a/src/code/fop.lisp
+++ b/src/code/fop.lisp
@@ -137,7 +137,7 @@
     (declare (type index size))
     (do ((n (1- size) (1- n)))
        ((minusp n))
-      (declare (type (integer -1 #.most-positive-fixnum) n))
+      (declare (type index-or-minus-1 n))
       (setf (%instance-ref res n) (pop-stack)))
     res))