- (typecase x
- ;; FIXME: byte compiler to go away completely
- #|
- (byte-function
- (sb!c::byte-function-name x))
- (byte-closure
- (sb!c::byte-function-name (byte-closure-function x)))
- |#
- (t ;; funcallable-instance
- (%function-name
- (funcallable-instance-function x))))))))