-(defconstant lowtag-bits 3
- #!+sb-doc
- "Number of bits at the low end of a pointer used for type information.")
-
-(defconstant lowtag-mask (1- (ash 1 lowtag-bits))
- #!+sb-doc
- "Mask to extract the low tag bits from a pointer.")
-
-(defconstant lowtag-limit (ash 1 lowtag-bits)
- #!+sb-doc
- "Exclusive upper bound on the value of the low tag bits from a pointer.")
-
-(defconstant type-bits 8
- #!+sb-doc
- "Number of bits used in the header word of a data block to store the type.")
+;;; the number of bits at the low end of a pointer used for type
+;;; information
+(defconstant lowtag-bits 3)
+;;; a mask to extract the low tag bits from a pointer
+(defconstant lowtag-mask (1- (ash 1 lowtag-bits)))
+;;; the exclusive upper bound on the value of the low tag bits from a
+;;; pointer
+(defconstant lowtag-limit (ash 1 lowtag-bits))