(inst li (logxor other-pointer-lowtag fun-pointer-lowtag) temp2)
(inst xor temp1 temp2 temp1)
(inst comb := temp1 zero-tn FUNCTION-PTR)
(inst li (logxor other-pointer-lowtag fun-pointer-lowtag) temp2)
(inst xor temp1 temp2 temp1)
(inst comb := temp1 zero-tn FUNCTION-PTR)