Changeset 13244


Ignore:
Timestamp:
03/12/11 19:57:48 (11 years ago)
Author:
vvoutilainen
Message:

Fix directory listings for files that have funny names
like File::Spec::VMS.3perl.gz. The wildcard filtering
is broken atm, working on that.

File:
1 edited

Legend:

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

    r13243 r13244  
    117117                  (dolist (entry entries)
    118118                    (cond ((file-directory-p entry)
    119                            (when (pathname-match-p (file-namestring (pathname-as-file entry)) (file-namestring pathname))
     119                           (when (pathname-match-p (make-pathname :name (file-namestring (pathname-as-file entry))) (make-pathname :name (file-namestring pathname)))
    120120                             (push entry matching-entries)))
    121                           ((pathname-match-p (or (file-namestring entry) "") (file-namestring pathname))
     121                          ((pathname-match-p (make-pathname :name (or (file-namestring entry) "")) (make-pathname :name (file-namestring pathname)))
    122122                           (push entry matching-entries))))
    123123                  matching-entries))))
Note: See TracChangeset for help on using the changeset viewer.