From d28663900d0b597a34a73f42589b802d9336f6d8 Mon Sep 17 00:00:00 2001 From: Christophe Rhodes Date: Wed, 11 Aug 2004 10:56:30 +0000 Subject: [PATCH] 0.8.13.59: Fix up the COUNT bitvector transform. Already caught by the test suite. --- NEWS | 1 + src/compiler/generic/vm-tran.lisp | 2 +- version.lisp-expr | 2 +- 3 files changed, 3 insertions(+), 2 deletions(-) diff --git a/NEWS b/NEWS index fd0a867..efef0e0 100644 --- 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") 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 --- 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 --- 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" -- 1.7.10.4