X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fcache.lisp;h=73c197bda28c097824ad77ab3572bc10f0a969dd;hb=d25e3478acccec70402ff32554669a982be8e281;hp=e7f60e4d6502f28b7319652849c274c9c99cc9f4;hpb=db770d287bb64a58967d08fdd8225c02cdd4d45a;p=sbcl.git

diff --git a/src/pcl/cache.lisp b/src/pcl/cache.lisp
index e7f60e4..73c197b 100644
--- a/src/pcl/cache.lisp
+++ b/src/pcl/cache.lisp
@@ -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))