diff --git a/code/bignum.lisp b/code/bignum.lisp index 7f3f5f34a10e6652f333400e898c0961daa2a50d..a33cca8574d31a39cae6c18437e1bcf14df1f721 100644 --- a/code/bignum.lisp +++ b/code/bignum.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/bignum.lisp,v 1.32 2003/03/04 15:14:17 toy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/bignum.lisp,v 1.33 2003/03/17 16:07:08 emarsden Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1338,7 +1338,7 @@ down to individual words.") ;;; (defun bignum-ashift-right (bignum x) (declare (type bignum-type bignum) - (fixnum x)) + (type unsigned-byte x)) (let ((bignum-len (%bignum-length bignum))) (declare (type bignum-index bignum-len)) (multiple-value-bind (digits n-bits)