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)))