projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.pre7.34:
[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")
(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)))
(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.")
"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
nil
nil
(invalid-array-index
@@
-182,4
+179,6
@@
(nil-function-returned
"A function with declared result type NIL returned.")
(layout-invalid
(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."))