- (inst sll temp (1- (integer-length sb!vm:word-bytes)) temp)
- (unless (= lowtag sb!vm:other-pointer-lowtag)
- (inst subq temp (- sb!vm:other-pointer-lowtag lowtag) temp))
+ (inst sll temp (1- (integer-length n-word-bytes)) temp)
+ (unless (= lowtag other-pointer-lowtag)
+ (inst subq temp (- other-pointer-lowtag lowtag) temp))