X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftypep.lisp;h=bcc2934d65ce9c94f629d46b054fca4970278ed8;hb=ed891a4fd882d1b9fe066ab14bcf2107aea95baa;hp=f52c5e705ed5de9267f2b78ddbc4c43893158273;hpb=b2f0204834bd0c314d44942dd92475c15ffa8c89;p=sbcl.git

diff --git a/src/code/typep.lisp b/src/code/typep.lisp
index f52c5e7..bcc2934 100644
--- a/src/code/typep.lisp
+++ b/src/code/typep.lisp
@@ -105,7 +105,8 @@
                              (specifier-type (array-element-type
                                               object)))))))
     (member-type
-     (if (member object (member-type-members type)) t))
+     (when (member-type-member-p object type)
+       t))
     (classoid
      #+sb-xc-host (ctypep object type)
      #-sb-xc-host (classoid-typep (layout-of object) type object))