projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.9.4.68:
[sbcl.git]
/
src
/
code
/
pred.lisp
diff --git
a/src/code/pred.lisp
b/src/code/pred.lisp
index
d7f5bfa
..
dc78044
100644
(file)
--- a/
src/code/pred.lisp
+++ b/
src/code/pred.lisp
@@
-139,7
+139,7
@@
(t
(let* ((classoid (layout-classoid (layout-of object)))
(name (classoid-name classoid)))
(t
(let* ((classoid (layout-classoid (layout-of object)))
(name (classoid-name classoid)))
- (if (typep object 'instance)
+ (if (%instancep object)
(case name
(sb!alien-internals:alien-value
`(sb!alien:alien
(case name
(sb!alien-internals:alien-value
`(sb!alien:alien
@@
-229,10
+229,10
@@
((hash-table-p x)
(and (hash-table-p y)
(hash-table-equalp x y)))
((hash-table-p x)
(and (hash-table-p y)
(hash-table-equalp x y)))
- ((typep x 'instance)
+ ((%instancep x)
(let* ((layout-x (%instance-layout x))
(len (layout-length layout-x)))
(let* ((layout-x (%instance-layout x))
(len (layout-length layout-x)))
- (and (typep y 'instance)
+ (and (%instancep y)
(eq layout-x (%instance-layout y))
(structure-classoid-p (layout-classoid layout-x))
(do ((i 1 (1+ i)))
(eq layout-x (%instance-layout y))
(structure-classoid-p (layout-classoid layout-x))
(do ((i 1 (1+ i)))