X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fnumbers.lisp;h=3f02be24e69dc65c015e07684a9e45c011fe3ead;hb=c45da820b56cd0bd4bd958b66639fa021054f962;hp=fe0ff5ccdd8f199adfa68f7c8188fdb7cabc979a;hpb=037f06f836c2ed1206bf29cfe3bc40e74b83723b;p=sbcl.git

diff --git a/src/code/numbers.lisp b/src/code/numbers.lisp
index fe0ff5c..3f02be2 100644
--- a/src/code/numbers.lisp
+++ b/src/code/numbers.lisp
@@ -1360,7 +1360,7 @@ the first."
          (number-dispatch ((u integer) (v integer))
            ((fixnum fixnum)
             (locally
-              (declare (optimize (speed 3) (safety 0)))
+                (declare (optimize (speed 3) (safety 0)))
               (do ((k 0 (1+ k))
                    (u (abs u) (ash u -1))
                    (v (abs v) (ash v -1)))
@@ -1376,11 +1376,11 @@ the first."
                        (setq temp (- u v))
                        (when (zerop temp)
                          (let ((res (ash u k)))
-                           (declare (type (signed-byte 31) res)
+                           (declare (type sb!vm:signed-word res)
                                     (optimize (inhibit-warnings 3)))
                            (return res))))))
-                (declare (type (mod 30) k)
-                         (type (signed-byte 31) u v)))))
+                (declare (type (mod #.sb!vm:n-word-bits) k)
+                         (type sb!vm:signed-word u v)))))
            ((bignum bignum)
             (bignum-gcd u v))
            ((bignum fixnum)