Changeset 13034


Ignore:
Timestamp:
Oct 16, 2009, 10:00:51 PM (10 years ago)
Author:
palter
Message:

Use file-namestring to properly ignore ".cvsignore" files

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/cocoa-ide/ide-bundle.lisp

    r12834 r13034  
    2828                                    (eql (aref name 0) #\#)))))))
    2929             (not (or (member (car (last (pathname-directory p))) source-ignore :test #'equalp)
    30                       (backup-p (pathname-name p))
    31                       (backup-p (pathname-type p))
    32                       (member (pathname-name p) source-ignore :test #'equalp))))))
     30                      (backup-p (file-namestring p))
     31                      (member (file-namestring p) source-ignore :test #'equalp))))))
    3332    (let* ((source-dir (ensure-directory-pathname source))
    3433           (target-dir (ensure-directory-pathname bundle-path))
Note: See TracChangeset for help on using the changeset viewer.