Changeset 12431


Ignore:
Timestamp:
Jul 20, 2009, 10:54:47 PM (10 years ago)
Author:
rme
Message:

%ALL-DIRECTORIES: observe PATHNAME-DEVICE in a case missed by r11996.
(ticket:522)

File:
1 edited

Legend:

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

    r11996 r12431  
    487487            (when (and do-files (%file*= name type sub))
    488488              (multiple-value-bind (name type) (%std-name-and-type sub)
    489                 (setq ans (%cons-pathname (or dir-list (setq dir-list (reverse so-far))) name type))
     489                (setq ans (%cons-pathname (or dir-list (setq dir-list (reverse so-far))) name type nil device))
    490490                (when (or (null test) (funcall test ans))
    491491                  (push (if follow-links (truename ans) ans) result))))))))
Note: See TracChangeset for help on using the changeset viewer.