X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fcheckgen.lisp;h=0a932453d5b856b77dc77b46ebf7bdfca40b893f;hb=edf8d3701ba59bd9f0c1bd027f3179b98250cfd0;hp=6274c3053e5e5f8c879e42d38e18ef770b3641eb;hpb=804a4f391c8dce7d39a5339d87895b069d87554a;p=sbcl.git

diff --git a/src/compiler/checkgen.lisp b/src/compiler/checkgen.lisp
index 6274c30..0a93245 100644
--- a/src/compiler/checkgen.lisp
+++ b/src/compiler/checkgen.lisp
@@ -59,7 +59,7 @@
         (compound-type
          (reduce #'+ (compound-type-types type) :key 'type-test-cost))
         (member-type
-         (* (length (member-type-members type))
+         (* (member-type-size type)
             (fun-guessed-cost 'eq)))
         (numeric-type
          (* (if (numeric-type-complexp type) 2 1)