Changeset 13252 for trunk/abcl/src/org


Ignore:
Timestamp:
03/16/11 18:36:39 (10 years ago)
Author:
vvoutilainen
Message:

Revert the fix attempt for files with names like File::Foo::Bar.
It breaks normal directory listings.

File:
1 edited

Legend:

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

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