(declare (type function fun))
;; The Lisp-level type FUNCTION can conceal a multitude of sins..
(case (sb-kernel:widetag-of fun)
(declare (type function fun))
;; The Lisp-level type FUNCTION can conceal a multitude of sins..
(case (sb-kernel:widetag-of fun)