-(def!constant word-shift (1- (integer-length (/ n-word-bits n-byte-bits)))
- #!+sb-doc
- "Number of bits to shift between word addresses and byte addresses.")
-
-(def!constant n-word-bytes (/ n-word-bits n-byte-bits)
- #!+sb-doc
- "Number of bytes in a word.")
-
-(def!constant n-fixnum-tag-bits (1- n-lowtag-bits)
- #!+sb-doc
- "Number of tag bits used for a fixnum")
-
-(def!constant fixnum-tag-mask (1- (ash 1 n-fixnum-tag-bits))
- #!+sb-doc
- "Mask to get the fixnum tag")
-
-(def!constant n-positive-fixnum-bits (- n-word-bits n-fixnum-tag-bits 1)
- #!+sb-doc
- "Maximum number of bits in a positive fixnum")
+;;; number of bits per byte where a byte is the smallest addressable object
+(def!constant n-byte-bits 8)