[stamp-cvs] CVS stamp

[fwillemain]

Update of /project/stamp/cvsroot/stamp
In directory clnet:/tmp/cvs-serv28026

Modified Files:
	stamp.lisp 
Log Message:
error on load-sequence

--- /project/stamp/cvsroot/stamp/stamp.lisp	2007/04/06 08:58:50	1.13
+++ /project/stamp/cvsroot/stamp/stamp.lisp	2007/04/06 09:24:14	1.14
@@ -71,10 +71,10 @@
 	(with-open-file (f1 start :direction :output :if-does-not-exist :create)
 	  (princ "(in-package :stamp-gui)" f1)))
     
-    (if (not (and  (probe-file tags2) (probe-file tags1)))
+    (if (or (not (probe-file tags2)) (not (probe-file tags1)))
 	(progn 
-	  (with-open-file (f1 tags2 :direction :output :if-does-not-exist :create))
-	  (with-open-file (f2 tags1 :direction :output :if-does-not-exist :create))))
+	  (with-open-file (f1 tags2 :direction :output :if-does-not-exist :create :if-exists nil))
+	  (with-open-file (f2 tags1 :direction :output :if-does-not-exist :create :if-exists nil))))
 	    
 	(compare-tags-files tags1 tags2)))