X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Ftarget-extensions.lisp;h=088694dc90a177fcab171afc0adc0a910c290d63;hb=9c3a9502bc872f024c365412d991ef43fd866e4c;hp=f65e25d81e84d06e686f16fa5a4774ab44dc51d3;hpb=a01e7ac2e8a9f3afae8f759381a0829fceb5bfde;p=sbcl.git

diff --git a/src/code/target-extensions.lisp b/src/code/target-extensions.lisp
index f65e25d..088694d 100644
--- a/src/code/target-extensions.lisp
+++ b/src/code/target-extensions.lisp
@@ -39,7 +39,7 @@ applications.")
   #!+sb-doc
   "This is a list of functions which are called in an unspecified
 order when SBCL process exits. Unused by SBCL itself: reserved for
-user and applications. Using (QUIT :RECKLESSLY-P T), or calling
+user and applications. Using (SB-EXT:EXIT :ABORT T), or calling
 exit(3) directly will circumvent these hooks.")
 
 
@@ -119,3 +119,8 @@ exit(3) directly will circumvent these hooks.")
                   (%shrink-vector string size)
                   string)))
          ,@body))))
+
+;;; The smallest power of two that is equal to or greater than X.
+(defun power-of-two-ceiling (x)
+  (declare (index x))
+  (ash 1 (integer-length (1- x))))