- (inst lda bytes (* (1+ words) word-bytes) extra)
- (inst sll bytes (- type-bits 2) header)
- (inst lda header (+ (ash -2 type-bits) type) header)
- (inst srl bytes lowtag-bits bytes)
- (inst sll bytes lowtag-bits bytes)
+ (inst lda bytes (* (1+ words) n-word-bytes) extra)
+ (inst sll bytes (- n-widetag-bits 2) header)
+ (inst lda header (+ (ash -2 n-widetag-bits) type) header)
+ (inst srl bytes n-lowtag-bits bytes)
+ (inst sll bytes n-lowtag-bits bytes)