0.8.13.59:

	Fix up the COUNT bitvector transform.  Already caught by the
	test suite.

diff --git a/NEWS b/NEWS
index fd0a867..efef0e0 100644 (file)
--- a/NEWS
+++ b/NEWS
@@ -34,6 +34,7 @@ changes in sbcl-0.8.14 relative to sbcl-0.8.13:
     to approximately the same size (using Euclid's algorithm) before
     applying the more sophisticated binary GCD.  (thanks to Juho
     Snellman)
+  * optimization: COUNT on bitvectors now operates word-at-a-time.
   * fixed some bugs revealed by Paul Dietz' test suite:
     ** FORMAT variable parameters ("~V<char>") are defaulted properly
        if the corresponding argument is NIL.

diff --git a/src/compiler/generic/vm-tran.lisp b/src/compiler/generic/vm-tran.lisp
index aa21616..5a1fa68 100644 (file)
--- a/src/compiler/generic/vm-tran.lisp
+++ b/src/compiler/generic/vm-tran.lisp
@@ -359,7 +359,7 @@
                                               (:big-endian
                                                '(- sb!vm:n-word-bits extra))))
                                  (%raw-bits sequence index))))
-               (declare (type (mod #.sb!vm:n-word-bits)) extra)
+               (declare (type (mod #.sb!vm:n-word-bits) extra))
                (declare (type sb!vm:word mask bits))
                ;; could consider LOGNOT for the zero case instead of
                ;; doing the subtraction...

diff --git a/version.lisp-expr b/version.lisp-expr
index ec6b99d..83fd702 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.13.58"
+"0.8.13.59"