X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fgeneric%2Finterr.lisp;h=f0fe0726b2223e2ba66530dcdc03c9dce184dbe5;hb=c8218514d751c4d777892b79bbf1ca6597f731c0;hp=6b36a7b6da6b7a310850957df97a3c5d84007af9;hpb=a530bbe337109d898d5b4a001fc8f1afa3b5dc39;p=sbcl.git

diff --git a/src/compiler/generic/interr.lisp b/src/compiler/generic/interr.lisp
index 6b36a7b..f0fe072 100644
--- a/src/compiler/generic/interr.lisp
+++ b/src/compiler/generic/interr.lisp
@@ -13,9 +13,6 @@
 
 (in-package "SB!KERNEL")
 
-(file-comment
-  "$Header$")
-
 (defun error-number-or-lose (name)
   (or (position name sb!c:*backend-internal-errors* :key #'car)
       (error "unknown internal error: ~S" name)))
@@ -112,10 +109,10 @@
    "division by zero")
   (object-not-type
    "Object is of the wrong type.")
-  (odd-keyword-arguments
-   "odd number of keyword arguments")
-  (unknown-keyword-argument
-   "unknown keyword")
+  (odd-key-arguments
+   "odd number of &KEY arguments")
+  (unknown-key-argument
+   "unknown &KEY argument")
   nil
   nil
   (invalid-array-index
@@ -182,4 +179,6 @@
   (nil-function-returned
    "A function with declared result type NIL returned.")
   (layout-invalid
-   "invalid layout (indicates obsolete instance)"))
+   "Object layout is invalid. (indicates obsolete instance)")
+  (object-not-complex-vector
+   "Object is not a complex (non-SIMPLE-ARRAY) vector."))