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