Update of /project/mcclim/cvsroot/mcclim/ESA In directory clnet:/tmp/cvs-serv21737/ESA

Modified Files: esa-io.lisp Log Message: Fix another file-write-date issue.

--- /project/mcclim/cvsroot/mcclim/ESA/esa-io.lisp 2008/01/15 08:05:09 1.7 +++ /project/mcclim/cvsroot/mcclim/ESA/esa-io.lisp 2008/01/15 16:24:23 1.8 @@ -236,7 +236,7 @@ (defun check-file-times (buffer filepath question answer) "Return NIL if filepath newer than buffer and user doesn't want to overwrite." - (let ((f-w-d (file-write-date filepath)) + (let ((f-w-d (and (probe-file filepath) (file-write-date filepath))) (f-w-t (file-write-time buffer))) (if (and f-w-d f-w-t (> f-w-d f-w-t)) (if (accept 'boolean