Changeset 12333


Ignore:
Timestamp:
Jun 30, 2009, 7:37:37 PM (10 years ago)
Author:
gz
Message:

Better source recording for non-toplevel defmethods

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/source-files.lisp

    r12329 r12333  
    709709    name))
    710710
     711(defmethod record-definition-source ((dt method-definition-type) (m method) source)
     712  ;; In cases of non-toplevel method definitions, as in the expansion of defgeneric,
     713  ;; the method function note has more specific info than *loading-toplevel-location*.
     714  (call-next-method dt m (or (function-source-note (method-function m)) source)))
     715
    711716;;; avoid hanging onto beezillions of pathnames
    712717(defparameter *last-back-translated-name* (cons nil nil))
Note: See TracChangeset for help on using the changeset viewer.