- ;; FIXME: Check the argument lists of generic functions,
- ;; instead of just punting like this. (DESCRIBE seems
- ;; to know how to do it, at least for #'DOCUMENTATION.)
- (values))
- (;; FIXME: CONDITION slot accessors (e.g.
- ;; PRINT-NOT-READABLE-OBJECT) fall into this category.
- ;; They seem to have argument lists -- since at least
- ;; DESCRIBE knows how to find them -- but I have
- ;; neither reverse engineered how it's finding them,
- ;; nor factored that into a function which can be
- ;; shared with the logic here..
- (= (sb-kernel:get-type fun) sb-vm:closure-header-type)
- (values)) ; ..so for now we just punt.