0.8.17.12:

	D'oh d'oh d'oh.  Unpatch profile.lisp which contained broken
	local modifications.  Sorry.

diff --git a/src/code/profile.lisp b/src/code/profile.lisp
index 97dba1f..48cd92a 100644 (file)
--- a/src/code/profile.lisp
+++ b/src/code/profile.lisp
@@ -162,7 +162,6 @@
        (let ((dticks 0)
             (dconsing 0)
             (inner-enclosed-profiles 0))
-         (declare (optimize (safety 0)))
         (declare (type unsigned-byte dticks dconsing))
         (declare (type unsigned-byte inner-enclosed-profiles))
         (aver (typep dticks 'unsigned-byte))
@@ -195,13 +194,9 @@
                         (pcounter-or-fixnum->integer *enclosed-profiles*))
                   (let ((net-dticks (fastbig- dticks *enclosed-ticks*)))
                     (fastbig-incf-pcounter-or-fixnum ticks net-dticks))
-                  (let ((net-dconsing (fastbig-
-                                        (fastbig- dconsing
-                                                  (pcounter-or-fixnum->integer
-                                                   *enclosed-consing*))
-                                        ;; three variables with value
-                                        ;; cells two bytes each.
-                                        (* 3 2 sb-vm:n-word-bytes))))
+                  (let ((net-dconsing (fastbig- dconsing
+                                                (pcounter-or-fixnum->integer
+                                                 *enclosed-consing*))))
                     (fastbig-incf-pcounter-or-fixnum consing net-dconsing))
                   (fastbig-incf-pcounter-or-fixnum profiles
                                                    inner-enclosed-profiles))))

diff --git a/version.lisp-expr b/version.lisp-expr
index 808e77b..18f6ed0 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".)
-"0.8.17.11"
+"0.8.17.12"