(cond ((valid-function-name-p function)
(function-arglist (or (and (symbolp function)
(macro-function function))
(fdefinition function))))
((typep function 'generic-function)
(sb-pcl::generic-function-pretty-arglist function))
(cond ((valid-function-name-p function)
(function-arglist (or (and (symbolp function)
(macro-function function))
(fdefinition function))))
((typep function 'generic-function)
(sb-pcl::generic-function-pretty-arglist function))