[stamp-cvs] CVS stamp

fwillemain fwillemain at common-lisp.net
Fri Apr 6 09:24:15 UTC 2007

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

Modified Files:
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)))
-	  (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)))

More information about the Stamp-cvs mailing list