projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.9.11.5
[sbcl.git]
/
src
/
code
/
interr.lisp
diff --git
a/src/code/interr.lisp
b/src/code/interr.lisp
index
9a42a0c
..
5bb783f
100644
(file)
--- a/
src/code/interr.lisp
+++ b/
src/code/interr.lisp
@@
-238,7
+238,7
@@
:operands (list this that)))
(deferr object-not-type-error (object type)
:operands (list this that)))
(deferr object-not-type-error (object type)
- (error (if (and (typep object 'instance)
+ (error (if (and (%instancep object)
(layout-invalid (%instance-layout object)))
'layout-invalid
'type-error)
(layout-invalid (%instance-layout object)))
'layout-invalid
'type-error)
@@
-392,8
+392,6
@@
\f
;;;; INTERNAL-ERROR signal handler
\f
;;;; INTERNAL-ERROR signal handler
-(defvar *internal-error-args*)
-
(defun internal-error (context continuable)
(declare (type system-area-pointer context))
(declare (ignore continuable))
(defun internal-error (context continuable)
(declare (type system-area-pointer context))
(declare (ignore continuable))