Changeset 15838


Ignore:
Timestamp:
Jun 14, 2013, 6:52:50 PM (6 years ago)
Author:
gz
Message:

Fix directory bug in last checkin

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/pathnames.lisp

    r15837 r15838  
    564564                (when (or (null test) (funcall test ans))
    565565                  (%add-directory-result ans result follow-links)))
    566              (%all-directories native-subdir rest path so-far keys result))
     566              (%all-directories native-subdir rest path so-far keys result))
    567567            (when (and do-files (%file*= name type native-sub))
    568               (multiple-value-bind (name type) (%std-name-and-type sub)
     568              (multiple-value-bind (name type) (%std-name-and-type native-sub)
    569569                (setq ans (%cons-pathname (or dir-list (setq dir-list (reverse so-far))) name type nil device))
    570570                (when (or (null test) (funcall test ans))
Note: See TracChangeset for help on using the changeset viewer.