From: Juho Snellman <jsnell@iki.fi>
Date: Thu, 23 Nov 2006 04:00:15 +0000 (+0000)
Subject: 0.9.18.69:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=cb1eb6fd4aaccac32794852ff95fc252f0f7a134;p=sbcl.git

0.9.18.69:
        Fix DISASSEMBLE after a SB-SPROF:RESET (regression since 0.9.18,
        reported by Zach Beane).
---

diff --git a/contrib/sb-sprof/sb-sprof.lisp b/contrib/sb-sprof/sb-sprof.lisp
index 3ec48d1..5851efe 100644
--- a/contrib/sb-sprof/sb-sprof.lisp
+++ b/contrib/sb-sprof/sb-sprof.lisp
@@ -1022,7 +1022,7 @@ profiling")
 
 (defun add-disassembly-profile-note (chunk stream dstate)
   (declare (ignore chunk stream))
-  (unless (zerop (samples-index *samples*))
+  (when *samples*
     (let* ((location (+ (sb-disassem::seg-virtual-location
                          (sb-disassem:dstate-segment dstate))
                         (sb-disassem::dstate-cur-offs dstate)))
diff --git a/version.lisp-expr b/version.lisp-expr
index e34c3f9..29ba23d 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".)
-"0.9.18.68"
+"0.9.18.69"