(inst addi (- simple-fun-header-widetag) type type)
(inst comb := type zero-tn normal-fn)
(inst addi (- (ash simple-fun-code-offset word-shift) fun-pointer-lowtag)
(inst addi (- simple-fun-header-widetag) type type)
(inst comb := type zero-tn normal-fn)
(inst addi (- (ash simple-fun-code-offset word-shift) fun-pointer-lowtag)