-;;; FIXME: The following three should probably be rationalized or at
-;;; least prefixed with n- where applicable
-(defconstant fixnum-tag-bits (1- n-lowtag-bits)
- #!+sb-doc
- "Number of tag bits used for a fixnum")
-
-(defconstant fixnum-tag-mask (1- (ash 1 fixnum-tag-bits))
- #!+sb-doc
- "Mask to get the fixnum tag")
-
-(defconstant positive-fixnum-bits (- n-word-bits fixnum-tag-bits 1)
- #!+sb-doc
- "Maximum number of bits in a positive fixnum")
-
-(defconstant float-sign-shift 31)
-
-(defconstant single-float-bias 126)