X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fbignum.lisp;h=7f54a05fa99ccbe6e61d901785db4b79fc7651e4;hb=975f1932acc3a8e90fb31d2b055bfbdde78ea927;hp=1f4a85c042ac6cf90f38a2074461fa77e76b5dbc;hpb=1d6cc3cdc716900691748d6d25c19b10f8b47eda;p=sbcl.git

diff --git a/src/code/bignum.lisp b/src/code/bignum.lisp
index 1f4a85c..7f54a05 100644
--- a/src/code/bignum.lisp
+++ b/src/code/bignum.lisp
@@ -550,7 +550,7 @@
 ;;; it, we pay a heavy price in BIGNUM-GCD when compiled by the
 ;;; cross-compiler. -- CSR, 2004-07-19
 (declaim (ftype (sfunction (bignum-type bignum-index bignum-type bignum-index)
-                           sb!vm::positive-fixnum)
+                           (and unsigned-byte fixnum))
                 bignum-factors-of-two))
 (defun bignum-factors-of-two (a len-a b len-b)
   (declare (type bignum-index len-a len-b) (type bignum-type a b))