1.0.24.48: Do explicit sign-extension of small signed alien return values

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

diff --git a/src/code/array.lisp b/src/code/array.lisp
index 7e9a28d..1df47c5 100644 (file)
--- 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