Fix cut-to-width in the presence of bad constants in dead code.

[sbcl.git] / src / pcl / dlisp.lisp

diff --git a/src/pcl/dlisp.lisp b/src/pcl/dlisp.lisp
index b568cf3..27f601c 100644 (file)
--- 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)))