0.pre7.14.flaky4.5:

[sbcl.git] / src / compiler / generic / interr.lisp

diff --git a/src/compiler/generic/interr.lisp b/src/compiler/generic/interr.lisp
index 6b36a7b..f0fe072 100644 (file)
--- 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."))