mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-16 06:12:25 -08:00
Code Issues Projects Releases Packages Wiki Activity

Only skip copying test files if the destination is at least as fresh.

Browse source
This commit is contained in:
Philipp Marek 2014-03-08 21:20:28 +01:00
parent c390b93b21
commit 990e0d1c15
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/tests/config.lsp.in
View file

@ -170,7 +170,9 @@
(loop for f in (directory (merge-pathnames *wild-inferiors* orig))
for f2 = (enough-namestring f orig)
for f3 = (merge-pathnames f2 dest)
unless (probe-file f3)
unless (and (probe-file f3)
(>= (file-write-date f3)
(file-write-date f2)))
do (ensure-directories-exist f3)
do (ext:copy-file f f3)))