Revert "Clean up %more-arg-values."

[sbcl.git] / contrib / sb-sprof / sb-sprof.lisp

diff --git a/contrib/sb-sprof/sb-sprof.lisp b/contrib/sb-sprof/sb-sprof.lisp
index 765ded9..0ce3209 100644 (file)
--- a/contrib/sb-sprof/sb-sprof.lisp
+++ b/contrib/sb-sprof/sb-sprof.lisp
@@ -1409,7 +1409,9 @@ functions during statistical profiling."
                   (incf (the (unsigned-byte 59)
                           (car info)))
                   (multiple-value-call original-fun
-                    (sb-c:%more-arg-values more-context more-count)))))))))
+                    (sb-c:%more-arg-values more-context
+                                           0
+                                           more-count)))))))))
 
 \f
 ;;; silly examples