DESCRIBE on a generic function symbol gives a not-useful source file

[Paul F. Dietz]

When I compile and load this file

;-*- Mode: Lisp -*-

(in-package :cl-user)

(defgeneric foo (x) (:documentation "Example generic function"))

(defmethod foo ((x integer)) :bar)

and then execute (describe 'foo), I get this:

COMMON-LISP-USER::FOO
  [symbol]

FOO names a generic function:
  Lambda-list: (X)
  Derived type: (FUNCTION (T) *)
  Documentation:
    Example generic function
  Method-combination: STANDARD
  Methods:
    (FOO (INTEGER))
  Source file: SYS:SRC;PCL;DFUN.LISP

The source file line is not useful. Instead, it should give the source file of the defgeneric form (if one was provided.)

[Stas Boukarev (stassats)]

3ba5f3fb532898c81324ed7ab7c87411a6bc369a

[Paul F. Dietz (paul-f-dietz)]

Thanks. It might be useful to also list the source files of methods (which can be obtained easily from the method objects' source slots) if they are different from the source file of the generic function itself.