X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-sprof%2Fsb-sprof.lisp;h=4802e9e55b6c1dd47fd0a7b61a3615fa76bcebe8;hb=4de6d945ea6d378a8beec681b6c73fdec7076422;hp=181015eca3fdaebff1397534cac17a3808791562;hpb=2d5fae5751e9b311a3e161b3e187a2eb818787c1;p=sbcl.git

diff --git a/contrib/sb-sprof/sb-sprof.lisp b/contrib/sb-sprof/sb-sprof.lisp
index 181015e..4802e9e 100644
--- a/contrib/sb-sprof/sb-sprof.lisp
+++ b/contrib/sb-sprof/sb-sprof.lisp
@@ -634,7 +634,7 @@ e
                ,@(when show-progress
                        `((format t "~&===> ~d of ~d samples taken.~%"
                                  (samples-trace-count *samples*)
-                                 (samples-max-samples))))
+                                 (samples-max-samples *samples*))))
                (let ((.last-index. (samples-index *samples*)))
                  ,@body
                  (when (= .last-index. (samples-index *samples*))