0.6.11.9:

[sbcl.git] / src / code / typep.lisp

diff --git a/src/code/typep.lisp b/src/code/typep.lisp
index a21ec02..7aa0448 100644 (file)
--- a/src/code/typep.lisp
+++ b/src/code/typep.lisp
@@ -117,9 +117,11 @@
      #+sb-xc-host (ctypep object type)
      #-sb-xc-host (class-typep (layout-of object) type object))
     (union-type
-     (dolist (type (union-type-types type))
-       (when (%%typep object type)
-        (return t))))
+     (some (lambda (typ) (%%typep object typ))
+          (union-type-types type)))
+    (intersection-type
+     (every (lambda (typ) (%%typep object typ))
+           (intersection-type-types type)))
     (cons-type
      (and (consp object)
          (%%typep (car object) (cons-type-car-type type))