[Sbcl-devel] sb-sprof :show-progress t

[Kilian S. <kil...@go...>]

Hi,

with this tiny patch (being actually my first :)

    (sb-sprof:with-profiling (:max-samples 1000
                               :report :flat
                               :loop t
                               :show-progress t)
       (cpu-test 24))

works again.

Cheers,
  Kilian

RCS file: /cvsroot/sbcl/sbcl/contrib/sb-sprof/sb-sprof.lisp,v
retrieving revision 1.17
diff -u -r1.17 sb-sprof.lisp
--- contrib/sb-sprof/sb-sprof.lisp      1 Dec 2006 16:17:32 -0000       1.17
+++ contrib/sb-sprof/sb-sprof.lisp      11 Jan 2007 01:15:02 -0000
@@ -634,7 +634,7 @@
                ,@(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*))