- (fun-debug-fun (funcallable-instance-function fun)))
- ((#.sb!vm:function-header-type #.sb!vm:closure-function-header-type)
- (let* ((name (%function-name fun))
- (component (function-code-header fun))
+ (fun-debug-fun (funcallable-instance-fun fun)))
+ ((#.sb!vm:simple-fun-header-type
+ #.sb!vm:closure-fun-header-type)
+ (let* ((name (%simple-fun-name fun))
+ (component (fun-code-header fun))