X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fgeneric%2Finterr.lisp;h=fd992abdd3cd3ef5bbba2816175ff0a6d74d1600;hb=63f714af62d0ccdb9d4a793ab0245b036c3d8531;hp=a2edee891e4dc3f415f225247caca39d0d67f4b0;hpb=63817d29028c8551cda23f432a3328acd7fdd62f;p=sbcl.git

diff --git a/src/compiler/generic/interr.lisp b/src/compiler/generic/interr.lisp
index a2edee8..fd992ab 100644
--- a/src/compiler/generic/interr.lisp
+++ b/src/compiler/generic/interr.lisp
@@ -24,14 +24,14 @@
 ;;; functions as closures instead of DEFUNs?
 (eval-when (:compile-toplevel :execute)
   (def!macro define-internal-errors (&rest errors)
-	     (let ((info (mapcar (lambda (x)
-				   (cons (symbolicate (first x) "-ERROR")
-					 (second x)))
-				 errors)))
-	       `(progn
-		  (setf sb!c:*backend-internal-errors*
-			',(coerce info 'vector))
-		  nil))))
+             (let ((info (mapcar (lambda (x)
+                                   (cons (symbolicate (first x) "-ERROR")
+                                         (second x)))
+                                 errors)))
+               `(progn
+                  (setf sb!c:*backend-internal-errors*
+                        ',(coerce info 'vector))
+                  nil))))
 
 (define-internal-errors
   (unknown
@@ -61,6 +61,11 @@
    "Object is not of type STRING.")
   (object-not-base-string
    "Object is not of type BASE-STRING.")
+  (object-not-vector-nil
+   "Object is not of type (VECTOR NIL).")
+  #!+sb-unicode
+  (object-not-character-string
+   "Object is not of type (VECTOR CHARACTER).")
   (object-not-bit-vector
    "Object is not of type BIT-VECTOR.")
   (object-not-array
@@ -142,11 +147,11 @@
    "Object is not a complex (non-SIMPLE-ARRAY) vector.")
   .
   #.(map 'list
-	 (lambda (saetp)
-	   (list
-	    (symbolicate "OBJECT-NOT-" (sb!vm:saetp-primitive-type-name saetp))
-	    (format nil "Object is not of type ~A."
-		    (specifier-type
-		     `(simple-array ,(sb!vm:saetp-specifier saetp) (*))))))
-	 sb!vm:*specialized-array-element-type-properties*))
+         (lambda (saetp)
+           (list
+            (symbolicate "OBJECT-NOT-" (sb!vm:saetp-primitive-type-name saetp))
+            (format nil "Object is not of type ~A."
+                    (specifier-type
+                     `(simple-array ,(sb!vm:saetp-specifier saetp) (*))))))
+         sb!vm:*specialized-array-element-type-properties*))