X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fcombin.lisp;h=a60d6cf97cb8b4b71694b2d8d2b7d6cb08c56260;hb=90c4b36715e7173e12fe4af1079a347b2e6fd14b;hp=2f6a222f5cf924051db679f39be3a17cc1011f93;hpb=1ca4f69009204caee2484161e6eb89fa6c5fd3f6;p=sbcl.git

diff --git a/src/pcl/combin.lisp b/src/pcl/combin.lisp
index 2f6a222..a60d6cf 100644
--- a/src/pcl/combin.lisp
+++ b/src/pcl/combin.lisp
@@ -236,7 +236,7 @@
            (declare (ignore .pv. .next-method-call.))
            (declare (ignorable .args.))
            (flet ((%no-primary-method (gf args)
-                    (apply #'no-primary-method gf args))
+                    (call-no-primary-method gf args))
                   (%invalid-qualifiers (gf combin method)
                     (invalid-qualifiers gf combin method)))
              (declare (ignorable #'%no-primary-method #'%invalid-qualifiers))