[Maxima-commits] CVS: maxima/src plot.lisp,1.30,1.31

[Raymond T. <rt...@us...>]

Update of /cvsroot/maxima/maxima/src
In directory sc8-pr-cvs1:/tmp/cvs-serv9928/src

Modified Files:
	plot.lisp 
Log Message:
If an output file exists, overwrite it.


Index: plot.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/src/plot.lisp,v
retrieving revision 1.30
retrieving revision 1.31
diff -u -d -r1.30 -r1.31
--- plot.lisp	24 Jul 2003 18:45:56 -0000	1.30
+++ plot.lisp	3 Aug 2003 12:58:19 -0000	1.31
@@ -928,7 +928,7 @@
   (setq plot-format  ($get_plot_option '$plot_format 2))
   (setq file (format nil "maxout.~(~a~)" (stripdollar plot-format)))
   
-  (with-open-file (st  file :direction :output)  
+  (with-open-file (st file :direction :output :if-exists :supersede)  
     (dolist (v (cdr fun))
 	    (incf i)
 	    (setq plot-name
@@ -1129,7 +1129,7 @@
 
 (defun $xgraph_curves (lis &rest options &aux w)
   options
-  (with-open-file (st  "xgraph-out" :direction :output)
+  (with-open-file (st  "xgraph-out" :direction :output :if-exists :supersede)
     (format st "=600x600~%")
     (sloop for v in (cdr lis)
        do
@@ -1223,7 +1223,7 @@
 (defun assureps (&optional do-prolog)
   (cond ((streamp $pstream))
 	(t (setq do-prolog t)))
-  (or $pstream (setq $pstream (open "maxout.ps" :direction :output)))
+  (or $pstream (setq $pstream (open "maxout.ps" :direction :output :if-exists :supersede)))
   (cond (do-prolog
 	  (p "%!")
 	  (p  (* .5 (nth 1 $window_size))
@@ -1579,7 +1579,8 @@
   (let (($pstream
 	 (cond ($in_netmath *standard-output*)
 	       (t (open (format nil "maxout.~(~a~)" (stripdollar plot-format))
-			:direction :output)))))
+			:direction :output
+			:if-exists :supersede)))))
     (unwind-protect
       (case  plot-format
 	($zic