- (inst shl temp (1- (integer-length word-bytes)))
- (unless (= lowtag other-pointer-type)
- (inst add temp (- lowtag other-pointer-type)))
+ (inst shl temp (1- (integer-length n-word-bytes)))
+ (unless (= lowtag other-pointer-lowtag)
+ (inst add temp (- lowtag other-pointer-lowtag)))