X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Farray.lisp;h=7a8f1b23b2bed8884e30f0f84a8df827917fcdd6;hb=722703e7cbd3a4b279a4c1baab5d95df2c23cce9;hp=dbbfbee7c4eb2eabd783022bf6891d7356ff035b;hpb=0c7ffa8fb85a94482814835c9f28abfd0400ab99;p=sbcl.git

diff --git a/src/code/array.lisp b/src/code/array.lisp
index dbbfbee..7a8f1b2 100644
--- a/src/code/array.lisp
+++ b/src/code/array.lisp
@@ -55,7 +55,7 @@
 (defun failed-%with-array-data (array start end)
   (declare (notinline %with-array-data))
   (%with-array-data array start end)
-  (error "internal error: shouldn't be here with valid parameters"))
+  (bug "called FAILED-%WITH-ARRAY-DATA with valid array parameters?"))
 
 ;;;; MAKE-ARRAY
 
@@ -539,7 +539,7 @@
 	  (declare (ignore start end))
 	  (array-element-type array)))
        (t
-	(error "~S is not an array." array))))))
+	(error 'type-error :datum array :expected-type 'array))))))
 
 (defun array-rank (array)
   #!+sb-doc