- (%function-name (%closure-function x)))
- ((#.sb!vm:function-header-type #.sb!vm:closure-function-header-type)
- (%function-name x))
+ (%simple-fun-name (%closure-fun x)))
+ ((#.sb!vm:simple-fun-header-type #.sb!vm:closure-fun-header-type)
+ (%simple-fun-name x))