X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Finterr.lisp;h=232f1a6e21a1d257b2d166f5da788acfc317d73e;hb=395c461b58f0cd484c21913c1e075593c206b5c1;hp=3b75632f49f15a41ba19c6358f39396bb9833589;hpb=47041c560a8e9e955ec8b403e575e7ecf3e23422;p=sbcl.git

diff --git a/src/code/interr.lisp b/src/code/interr.lisp
index 3b75632..232f1a6 100644
--- a/src/code/interr.lisp
+++ b/src/code/interr.lisp
@@ -260,12 +260,7 @@
          :format-arguments (list key-name)))
 
 (deferr invalid-array-index-error (array bound index)
-  (error 'simple-type-error
-         :format-control
-         "invalid array index ~W for ~S (should be nonnegative and <~W)"
-         :format-arguments (list index array bound)
-         :datum index
-         :expected-type `(integer 0 (,bound))))
+  (invalid-array-index-error array bound index))
 
 (deferr object-not-simple-array-error (object)
   (error 'type-error