projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.pre7.31:
[sbcl.git]
/
src
/
code
/
typep.lisp
diff --git
a/src/code/typep.lisp
b/src/code/typep.lisp
index
f46a25c
..
c7d25a3
100644
(file)
--- a/
src/code/typep.lisp
+++ b/
src/code/typep.lisp
@@
-117,10
+117,11
@@
#+sb-xc-host (ctypep object type)
#-sb-xc-host (class-typep (layout-of object) type object))
(union-type
#+sb-xc-host (ctypep object type)
#-sb-xc-host (class-typep (layout-of object) type object))
(union-type
- (some (lambda (typ) (%%typep object typ))
+ (some (lambda (union-type-type) (%%typep object union-type-type))
(union-type-types type)))
(intersection-type
(union-type-types type)))
(intersection-type
- (every (lambda (typ) (%%typep object typ))
+ (every (lambda (intersection-type-type)
+ (%%typep object intersection-type-type))
(intersection-type-types type)))
(cons-type
(and (consp object)
(intersection-type-types type)))
(cons-type
(and (consp object)