Ignore:
Timestamp:
Mar 14, 2009, 4:42:20 AM (11 years ago)
Author:
rme
Message:

Merge trunk changes r11790-r11794, r11796, r11801, r11803

(GC fixes, additional x8632 vinsns, easygui enhancements, x8632 callback fix)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/1.3/source/lib/source-files.lisp

    r11420 r11814  
    591591  "Returns a list of (TYPE . DEFINITION-SOURCE) for all the known definitions of NAME."
    592592  (let ((definitions ()))
    593     (loop for ((dt . full-name) last-source . nil)
    594             in (find-definition-sources name type-name)
     593    (loop for ((dt . full-name) . sources) in (find-definition-sources name type-name)
     594          as last-source = (find-if-not #'null sources)
    595595          do (when last-source
    596596               (push (list dt full-name last-source) definitions)))
     
    653653                                       (and x
    654654                                            y
     655                                            (or (stringp x) (pathnamep x))
     656                                            (or (stringp y) (pathnamep y))
    655657                                            (equal
    656658                                             (or (probe-file x) (full-pathname x))
Note: See TracChangeset for help on using the changeset viewer.