- (case (sb-kernel:get-type function)
- ((#.sb-vm:function-header-type #.sb-vm:closure-function-header-type)
- (sb-kernel:%function-arglist function))
- (#.sb-vm:closure-header-type (has-arglist-info-p
- (sb-kernel:%closure-function
- function)))
- ;; in code/describe.lisp, ll. 227 (%describe-function), we use a scheme
+ (case (sb-kernel:widetag-of fun)
+ ((#.sb-vm:simple-fun-header-widetag #.sb-vm:closure-fun-header-widetag)
+ (sb-kernel:%simple-fun-arglist fun))
+ (#.sb-vm:closure-header-widetag (has-arglist-info-p
+ (sb-kernel:%closure-fun fun)))
+ ;; In code/describe.lisp, ll. 227 (%describe-fun), we use a scheme