- (loadw temp list cons-car-slot list-pointer-type)
- (loadw list list cons-cdr-slot list-pointer-type)
- (inst lda csp-tn word-bytes csp-tn)
+ (loadw temp list cons-car-slot list-pointer-lowtag)
+ (loadw list list cons-cdr-slot list-pointer-lowtag)
+ (inst lda csp-tn n-word-bytes csp-tn)