1.0.27.26: fix invalid array index reporting for compiled code

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

diff --git a/src/code/array.lisp b/src/code/array.lisp
index 7e9a28d..2d4ab67 100644 (file)
--- a/src/code/array.lisp
+++ b/src/code/array.lisp
@@ -476,13 +476,14 @@ of specialized arrays is supported."
 (defun data-vector-ref-with-offset (array index offset)
   (hairy-data-vector-ref array (+ index offset)))
 
-(declaim (ftype (function (array integer integer &optional t) nil) signal-invalid-array-index-error))
+(declaim (ftype (function (array integer integer &optional t) nil)
+                invalid-array-index-error))
 (defun invalid-array-index-error (array index bound &optional axis)
   (error 'invalid-array-index-error
          :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