(:generator 5
(loadw offset object 0 instance-pointer-lowtag)
(inst srl offset offset n-widetag-bits)
- (inst sll offset offset 2)
+ (inst sll offset offset n-fixnum-tag-bits)
(inst sub offset offset index)
(inst add
offset
(:generator 5
(loadw offset object 0 instance-pointer-lowtag)
(inst srl offset offset n-widetag-bits)
- (inst sll offset offset 2)
+ (inst sll offset offset n-fixnum-tag-bits)
(inst sub offset offset index)
(inst add
offset
(:generator 5
(loadw offset object 0 instance-pointer-lowtag)
(inst srl offset offset n-widetag-bits)
- (inst sll offset offset 2)
+ (inst sll offset offset n-fixnum-tag-bits)
(inst sub offset offset index)
(inst add
offset
(:generator 5
(loadw offset object 0 instance-pointer-lowtag)
(inst srl offset offset n-widetag-bits)
- (inst sll offset offset 2)
+ (inst sll offset offset n-fixnum-tag-bits)
(inst sub offset offset index)
(inst add
offset
(:generator 5
(loadw offset object 0 instance-pointer-lowtag)
(inst srl offset offset n-widetag-bits)
- (inst sll offset offset 2)
+ (inst sll offset offset n-fixnum-tag-bits)
(inst sub offset offset index)
(inst add
offset
(:generator 5
(loadw offset object 0 instance-pointer-lowtag)
(inst srl offset offset n-widetag-bits)
- (inst sll offset offset 2)
+ (inst sll offset offset n-fixnum-tag-bits)
(inst sub offset offset index)
(inst add
offset
(:generator 5
(loadw offset object 0 instance-pointer-lowtag)
(inst srl offset offset n-widetag-bits)
- (inst sll offset offset 2)
+ (inst sll offset offset n-fixnum-tag-bits)
(inst sub offset offset index)
(inst add
offset
(:generator 5
(loadw offset object 0 instance-pointer-lowtag)
(inst srl offset offset n-widetag-bits)
- (inst sll offset offset 2)
+ (inst sll offset offset n-fixnum-tag-bits)
(inst sub offset offset index)
(inst add
offset
(:generator 5
(loadw offset object 0 instance-pointer-lowtag)
(inst srl offset offset n-widetag-bits)
- (inst sll offset offset 2)
+ (inst sll offset offset n-fixnum-tag-bits)
(inst sub offset offset index)
(inst add
offset
(:generator 5
(loadw offset object 0 instance-pointer-lowtag)
(inst srl offset offset n-widetag-bits)
- (inst sll offset offset 2)
+ (inst sll offset offset n-fixnum-tag-bits)
(inst sub offset offset index)
(inst add
offset