X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fbignum.lisp;h=f96890aa5430332550c5af9c2542e82502a3486f;hb=f12b298a4ce9090470000360b49523e56475a680;hp=5ee6b3ada06f4b32e60df4222f5c25c4f03d3f7f;hpb=2f10546bc6638ee44bd9ba317fab1dff81be1bb6;p=sbcl.git

diff --git a/src/code/bignum.lisp b/src/code/bignum.lisp
index 5ee6b3a..f96890a 100644
--- a/src/code/bignum.lisp
+++ b/src/code/bignum.lisp
@@ -194,7 +194,7 @@
   (%lognot digit))
 
 ;;; Each of these does the digit-size unsigned op.
-#!-sb-fluid (declaim (inline %logand %logior %logxor))
+(declaim (inline %logand %logior %logxor))
 (defun %logand (a b)
   (declare (type bignum-element-type a b))
   (logand a b))
@@ -270,7 +270,7 @@
 
 ;;; These take two digit-size quantities and compare or contrast them
 ;;; without wasting time with incorrect type checking.
-#!-sb-fluid (declaim (inline %digit-compare %digit-greater))
+(declaim (inline %digit-compare %digit-greater))
 (defun %digit-compare (x y)
   (= x y))
 (defun %digit-greater (x y)