Update of /cvsroot/sbcl/sbcl/src/pcl
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv7860/src/pcl
188.8.131.52: just one POWER-OF-TWO-CEILING, thank you
* We had two, of which CEIL-POWER-OF-TWO with arguments that already
were powers of two returned the *next* power of two, and not the
argument, whereas POWER-OF-TWO-CEILING returned the argument if
it already was a power of two.
As far as I can tell returning the argument is fine in those case
in places where CEIL-POWER-OF-TWO was used, so replace it with
POWER-OF-TWO-CEILING -- which really doesn't have to be inline.
RCS file: /cvsroot/sbcl/sbcl/src/pcl/cache.lisp,v
retrieving revision 1.62
retrieving revision 1.63
diff -u -d -r1.62 -r1.63
--- cache.lisp 14 Mar 2008 20:41:26 -0000 1.62
+++ cache.lisp 30 Jun 2008 10:34:03 -0000 1.63
@@ -104,11 +104,6 @@
;; bits at the low end.
(logand (1- vector-length) (- line-size)))
-;;; The smallest power of two that is equal to or greater then X.
-(declaim (inline power-of-two-ceiling))
-(defun power-of-two-ceiling (x)
- (ash 1 (integer-length (1- x))))
(defun cache-statistics (cache)
(let* ((vector (cache-vector cache))
(size (length vector))