projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.8aplha.0.6:
[sbcl.git]
/
src
/
code
/
error.lisp
diff --git
a/src/code/error.lisp
b/src/code/error.lisp
index
66a6ebc
..
9a0e47d
100644
(file)
--- a/
src/code/error.lisp
+++ b/
src/code/error.lisp
@@
-23,7
+23,7
@@
:format-control format-control
:format-arguments format-arguments))
:format-control format-control
:format-arguments format-arguments))
-(define-condition sb!kernel:layout-invalid (type-error)
+(define-condition layout-invalid (type-error)
()
(:report
(lambda (condition stream)
()
(:report
(lambda (condition stream)
@@
-31,7
+31,7
@@
"~@<invalid structure layout: ~
~2I~_A test for class ~4I~_~S ~
~2I~_was passed the obsolete instance ~4I~_~S~:>"
"~@<invalid structure layout: ~
~2I~_A test for class ~4I~_~S ~
~2I~_was passed the obsolete instance ~4I~_~S~:>"
- (sb!kernel:class-proper-name (type-error-expected-type condition))
+ (classoid-proper-name (type-error-expected-type condition))
(type-error-datum condition)))))
(define-condition case-failure (type-error)
(type-error-datum condition)))))
(define-condition case-failure (type-error)