X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fdlisp.lisp;h=27f601c7e89c725c4d51aa58209f00c59b24aafc;hb=4f4906712a4fa98880fb0f8f036ca2add541b8a1;hp=b568cf3531574241ef4ffce3501d0ec6dda619f8;hpb=1e5296127f5b384a2171646747021ebeee73b801;p=sbcl.git

diff --git a/src/pcl/dlisp.lisp b/src/pcl/dlisp.lisp
index b568cf3..27f601c 100644
--- a/src/pcl/dlisp.lisp
+++ b/src/pcl/dlisp.lisp
@@ -300,6 +300,7 @@
   (if applyp
       `(multiple-value-call ,miss-fn ,@args
                             (sb-c::%more-arg-values .more-context.
+                                                    0
                                                     .more-count.))
       `(funcall ,miss-fn ,@args)))