From: Juho Snellman <jsnell@iki.fi>
Date: Thu, 11 Jan 2007 19:54:10 +0000 (+0000)
Subject: 1.0.1.19:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=d64e6164df53ee0467f68ddfaedbf0efadd4ab78;p=sbcl.git

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
--- 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
--- 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
--- 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"