1.0.27.31: repeatable fasl header and debug-source

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

diff --git a/src/code/array.lisp b/src/code/array.lisp
index 1df47c5..2d4ab67 100644 (file)
--- a/src/code/array.lisp
+++ b/src/code/array.lisp
@@ -476,7 +476,8 @@ 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