- (typecase fun
- ;; FIXME: byte compiler to be deleted completely
- #|
- (byte-function (byte-function-type fun))
- (byte-closure (byte-function-type (byte-closure-function fun)))
- |#
- (t
- (specifier-type (%function-type (%closure-function fun))))))