X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Fcross-type.lisp;h=730a764e026ee36ccdf674109fa4c3966af8993d;hb=b9147dff981d00779cccc6b9a00be2a388bd28a6;hp=fee5884319eac9e76fecc71c62d2ef10787df61c;hpb=a682f4c392bc874a6a898632889319ebdd8821fc;p=sbcl.git

diff --git a/src/code/cross-type.lisp b/src/code/cross-type.lisp
index fee5884..730a764 100644
--- a/src/code/cross-type.lisp
+++ b/src/code/cross-type.lisp
@@ -356,7 +356,7 @@
   ;; call TYPE=, that in turn may call CTYPEP). Until then, pick a few
   ;; cherries off.
   (cond ((member-type-p ctype)
-         (if (member obj (member-type-members ctype))
+         (if (member-type-member-p obj ctype)
              (values t t)
              (values nil t)))
         ((union-type-p ctype)