From: Raymond T. <rt...@us...> - 2003-08-03 12:58:22
|
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 |