-(defconstant n-fixnum-tag-bits (1- n-lowtag-bits)
- #!+sb-doc
- "Number of tag bits used for a fixnum")
-
-(defconstant fixnum-tag-mask (1- (ash 1 n-fixnum-tag-bits))
- #!+sb-doc
- "Mask to get the fixnum tag")
-
-(defconstant n-positive-fixnum-bits (- n-word-bits n-fixnum-tag-bits 1)
- #!+sb-doc
- "Maximum number of bits in a positive fixnum")
-
-(defconstant float-sign-shift 31)
-
-(defconstant single-float-bias 126)