X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Ftypep.lisp;h=c7d25a3ae805af0cff91dcdda45f8b64a83b5ff3;hb=872175cd9cb5b4966a36d4bd92421cc407a0355b;hp=f46a25cbbd442fd91fb46317e2ec7a374f60ece3;hpb=0b5610d8a220a4b20cbeac958953ca4d67c00038;p=sbcl.git

diff --git a/src/code/typep.lisp b/src/code/typep.lisp
index f46a25c..c7d25a3 100644
--- 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
-     (some (lambda (typ) (%%typep object typ))
+     (some (lambda (union-type-type) (%%typep object union-type-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)