X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ffop.lisp;h=ea2ceef191cd999e70cb7be8cc3d4a96a27447f8;hb=bcbbce86c47a1c530d488c7876a453100fcd933e;hp=514d63109242185410b4c66af24bc505e72c762a;hpb=c713eb2b521b048ff2c927ec52b861787d289f85;p=sbcl.git

diff --git a/src/code/fop.lisp b/src/code/fop.lisp
index 514d631..ea2ceef 100644
--- 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))