(define-primitive-object (bignum :lowtag other-pointer-lowtag
:widetag bignum-widetag
:alloc-trans sb!bignum::%allocate-bignum)
- (digits :rest-p t :c-type #!-alpha "long" #!+alpha "u32"))
+ (digits :rest-p t :c-type #!-alpha "sword_t" #!+alpha "u32"))
(define-primitive-object (ratio :type ratio
:lowtag other-pointer-lowtag