Ticket #6: directory-symlink.patch

File directory-symlink.patch, 834 bytes (added by vvoutilainen, 16 years ago)

Patch candidate for the problem. So far, seems to work, wider testing to be done before closing the ticket.

  • directory.lisp

     
    6969                  (matching-entries ()))
    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)))
    7777        ;; Not wild.