Changeset 8929


Ignore:
Timestamp:
Mar 28, 2008, 9:41:11 AM (11 years ago)
Author:
mb
Message:

Fix ccl::%source-files handling of methods.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/lib/source-files.lisp

    r8893 r8929  
    463463(defun %source-files (name)
    464464  (mapcar (lambda (def)
    465             (cons (first def) (source-note-file-name (third def))))
     465            (let ((def-type (first def))
     466                  (file (source-note-file-name (third def))))
     467              (cons (if (eql 'method def-type)
     468                      (%find-method-from-definition-name (second def))
     469                      def-type)
     470                    file)))
    466471          (gethash name *source-files*)))
    467472
Note: See TracChangeset for help on using the changeset viewer.