[Maxima-commits] CVS: maxima/lisp-utils make-depends.lisp,1.3,1.4

[Andreas E. <ar...@us...>]

Update of /cvsroot/maxima/maxima/lisp-utils
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv10541/lisp-utils

Modified Files:
	make-depends.lisp 
Log Message:
void undeclared variables; ensure that file gets closed in all circumstances.



Index: make-depends.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/lisp-utils/make-depends.lisp,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- make-depends.lisp	23 Feb 2003 18:04:45 -0000	1.3
+++ make-depends.lisp	14 Mar 2008 18:32:35 -0000	1.4
@@ -1,18 +1,22 @@
 (in-package :mk)
+
 (defvar *oos-dependency-stream* t
   "Output stream for list-dependencies-operation")
+
 (defvar *oos-dependency-target* "target"
   "Output target for list-dependencies-operation")
+
 (defun list-dependencies-operation (component force)
   (format *oos-dependency-stream* "~A : ~A.~A~%"
 	  *oos-dependency-target*
 	  (component-source-pathname component)
 	  (component-source-extension component)))
+
 (component-operation :list-dependencies 'list-dependencies-operation)
+
 (defun create-dependency-file (target file)
-  (setq dependency-file (open file :direction :output :if-exists :supersede))
-  (setq *oos-dependency-target* target)
-  (setq *oos-dependency-stream* dependency-file)
-  (setq oos-output (operate-on-system 'maxima :list-dependencies))
-  (format dependency-file "~%")
-  (close dependency-file))
\ No newline at end of file
+  (with-open-file (dependency-file file :direction :output :if-exists :supersede)
+    (setq *oos-dependency-target* target)
+    (setq *oos-dependency-stream* dependency-file)
+    (operate-on-system 'maxima :list-dependencies)
+    (format dependency-file "~%")))