Commit 67d9378f authored by Pascal J. Bourguignon's avatar Pascal J. Bourguignon

Added :test 'equalp in remove-duplicates for pathnames (in implementations...

Added :test 'equalp in remove-duplicates for pathnames (in implementations returnig the same files for *.* and for *).
parent f088b6ec
......@@ -160,7 +160,8 @@ NOTE: Empty subdirectories are not copied.
(remove-if (lambda (path) (not (or (pathname-name path) (pathname-type path))))
(remove-duplicates
(append (directory (merge-pathnames (if recursively "**/*.*" "*.*") src))
(directory (merge-pathnames (if recursively "**/*" "*") src)))))))
(directory (merge-pathnames (if recursively "**/*" "*") src)))
:test (function equalp)))))
(copied-files '())
(error-files '()))
(dolist (src-file src-files (values copied-files error-files))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment