X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Finterr.lisp;h=16a07f39fc4a9e8811fcec07c4b8dcc4c52a66c6;hb=b8f63d9b4e978bec3bfc1f4fc471e5ed946781fd;hp=0a9744919d20140db13e43408426d258b3cb29ad;hpb=77360ee4a1f94c41b807be7ad0e8687199fceef1;p=sbcl.git

diff --git a/src/code/interr.lisp b/src/code/interr.lisp
index 0a97449..16a07f3 100644
--- a/src/code/interr.lisp
+++ b/src/code/interr.lisp
@@ -300,7 +300,7 @@
   (error 'simple-error
 	 :function-name name
 	 :format-control
-	 "invalid array index, ~D for ~S (should have been less than ~D)"
+	 "invalid array index ~D for ~S (should be nonnegative and <~D)"
 	 :format-arguments (list index array bound)))
 
 (deferr object-not-simple-array-error (object)