1.0.1.19:

        The expansion of SB-SPROF:WITH-PROFILING was missing the parameter to
        SAMPLES-MAX-SAMPLES, which broke :SHOW-PROGRESS (thanks to Kilian
        Sprotte)

diff --git a/NEWS b/NEWS
index c09f34a..555ecba 100644 (file)
--- a/NEWS
+++ b/NEWS
@@ -17,6 +17,8 @@ changes in sbcl-1.0.2 relative to sbcl-1.0.1:
     (thanks to Tony Martinez)
   * bug fix: the initforms for DEFMETHOD &AUX parameters are only
     evaluated once (reported by Kevin Reid)
+  * bug fix: the :SHOW-PROGRESS keyword parameter to SB-SPROF:WITH-PROFILING
+    works again (thanks to Kilian Sprotte)
 
 changes in sbcl-1.0.1 relative to sbcl-1.0:
   * new platform: FreeBSD/x86-64, including support for threading.

diff --git a/contrib/sb-sprof/sb-sprof.lisp b/contrib/sb-sprof/sb-sprof.lisp
index 181015e..4802e9e 100644 (file)
--- 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*))

diff --git a/version.lisp-expr b/version.lisp-expr
index 9eb8468..b179572 100644 (file)
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.1.18"
+"1.0.1.19"