(ash (+ posn (component-header-length))
(- type-bits word-shift)))))))
-(define-instruction function-header-word (segment)
+(define-instruction simple-fun-header-word (segment)
(:cost 0)
(:emitter
- (emit-header-data segment function-header-type)))
+ (emit-header-data segment simple-fun-header-type)))
(define-instruction lra-header-word (segment)
(:cost 0)