X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Farray.lisp;h=1df47c51f1fa5981add7329390e6e7843c5051b4;hb=395c461b58f0cd484c21913c1e075593c206b5c1;hp=7e9a28db522ba064557df0b9a9aff5ad397788de;hpb=ee3f2e0351674dde7229afdcccfcfaf8ce5b112e;p=sbcl.git

diff --git a/src/code/array.lisp b/src/code/array.lisp
index 7e9a28d..1df47c5 100644
--- a/src/code/array.lisp
+++ b/src/code/array.lisp
@@ -482,7 +482,7 @@ of specialized arrays is supported."
          :array array
          :axis axis
          :datum index
-         :type `(integer 0 (,bound))))
+         :expected-type `(integer 0 (,bound))))
 
 ;;; SUBSCRIPTS has a dynamic-extent list structure and is destroyed
 (defun %array-row-major-index (array subscripts