SB-KERNEL:%FUN-NAME on implicitly created generic functions

[Tobias C. Rittweiler]

(defmethod method-without-defgeneric (x) x)

(with-test (:name :method-without-defgeneric+%fun-name)
  (assert (eq (sb-kernel:%fun-name #'method-without-defgeneric)
               'method-without-defgeneric)))

;;; Currently (1.0.35.x) %FUN-NAME returns
;;;
;;; (LAMBDA (&REST SB-PCL::ARGS))

[Douglas Katzman (dougk)]

First of all, this behavior has nothing to do with whether the GF was implicit or not.
* (defgeneric f (x))
#<STANDARD-GENERIC-FUNCTION F (0)>
* (sb-kernel:%fun-name #'f)
(LAMBDA (&REST SB-PCL::ARGS) :IN SB-PCL::MAKE-INITIAL-DFUN)

But the correct accessor is FUN-NAME, or more portably (nth-value 2 (function-lambda-expression x))