Changeset 11364


Ignore:
Timestamp:
10/26/08 13:21:32 (13 years ago)
Author:
vvoutilainen
Message:

Fix behaviour with symbolic links.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/directory.lisp

    r11304 r11364  
    7070              (dolist (entry entries)
    7171                (cond ((file-directory-p entry)
    72                        (when (pathname-match-p (pathname-as-file entry) pathname)
     72                       (when (pathname-match-p (file-namestring (pathname-as-file entry)) (file-namestring pathname))
    7373                         (push entry matching-entries)))
    74                       ((pathname-match-p entry pathname)
     74                      ((pathname-match-p (file-namestring entry) (file-namestring pathname))
    7575                       (push entry matching-entries))))
    7676              matching-entries)))
Note: See TracChangeset for help on using the changeset viewer.