X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fcombin.lisp;h=201620b089dad296681917eb86205d3e32adf10a;hb=1dc38285834db2d374a156a4f68b19096341deb3;hp=ecd09d54a639dc2f25a5414119f7ab225b391975;hpb=c1d63b850fe9528036f8ae715088384e81d880cc;p=sbcl.git

diff --git a/src/pcl/combin.lisp b/src/pcl/combin.lisp
index ecd09d5..201620b 100644
--- a/src/pcl/combin.lisp
+++ b/src/pcl/combin.lisp
@@ -419,7 +419,7 @@
       (dolist (m applicable-methods)
         (let ((qualifiers (if (listp m)
                               (early-method-qualifiers m)
-                              (method-qualifiers m))))
+                              (safe-method-qualifiers m))))
           (cond
             ((null qualifiers) (primary m))
             ((cdr qualifiers) (invalid generic-function combin m))