- (case (get-type x)
- (#.sb!vm:closure-header-type
- (%function-name (%closure-function x)))
- ((#.sb!vm:function-header-type #.sb!vm:closure-function-header-type)
- (%function-name x))
- (#.sb!vm:funcallable-instance-header-type
- (%function-name
- (funcallable-instance-function x))))))
+ (case (widetag-of x)
+ (#.sb!vm:closure-header-widetag
+ (%simple-fun-name (%closure-fun x)))
+ ((#.sb!vm:simple-fun-header-widetag
+ #.sb!vm:closure-fun-header-widetag)
+ (%simple-fun-name x))
+ (#.sb!vm:funcallable-instance-header-widetag
+ (%simple-fun-name
+ (funcallable-instance-fun x))))))