[mcclim-cvs] CVS mcclim/ESA

[crhodes]

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