X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fpcl%2Fcombin.lisp;h=4fcc2ef2c25e0710321b9d6cc63d2a7de4716c91;hb=a41e7cf8667de9ae078a8e318e8c5c045cdee87d;hp=ba3d35ab3ecf4135a5669469d8a6368fcce185ef;hpb=7474a620a5538091b9c1cba877156f5645d78aa6;p=sbcl.git

diff --git a/src/pcl/combin.lisp b/src/pcl/combin.lisp
index ba3d35a..4fcc2ef 100644
--- a/src/pcl/combin.lisp
+++ b/src/pcl/combin.lisp
@@ -243,11 +243,7 @@
              (declare (ignorable #'%no-primary-method #'%invalid-qualifiers))
              ,effective-method)))
         (mc-args-p
-         (let* ((required
-                 ;; FIXME: Ick. Shared idiom, too, with stuff in cache.lisp
-                 (let (req)
-                   (dotimes (i (length metatypes) (nreverse req))
-                     (push (dfun-arg-symbol i) req))))
+         (let* ((required (make-dfun-required-args metatypes))
                 (gf-args (if applyp
                              `(list* ,@required
                                      (sb-c::%listify-rest-args