Changeset 11763


Ignore:
Timestamp:
Feb 24, 2009, 1:50:42 AM (11 years ago)
Author:
gz
Message:

Ignore unsourced definitions in find-definitions-for-name. Don't assume source-note-file-name is a filename, for future extensions

File:
1 edited

Legend:

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

    r11054 r11763  
    585585  "Returns a list of (TYPE . DEFINITION-SOURCE) for all the known definitions of NAME."
    586586  (let ((definitions ()))
    587     (loop for ((dt . full-name) last-source . nil)
    588             in (find-definition-sources name type-name)
     587    (loop for ((dt . full-name) . sources) in (find-definition-sources name type-name)
     588          as last-source = (find-if-not #'null sources)
    589589          do (when last-source
    590590               (push (list dt full-name last-source) definitions)))
     
    672672                                       (and x
    673673                                            y
     674                                            (or (stringp x) (pathnamep x))
     675                                            (or (stringp y) (pathnamep y))
    674676                                            (equal
    675677                                             (or (probe-file x) (full-pathname x))
Note: See TracChangeset for help on using the changeset viewer.