zone.lisp: Close output files after writing.

Otherwise we end up with lots of open files for no good reason.

diff --git a/zone.lisp b/zone.lisp
index 7db70b1041616a8f62ac502c069b6068d74a5fe9..c800f1f4491d6850773703b2001ca44e43f4e501 100644 (file)
--- a/zone.lisp
+++ b/zone.lisp
@@ -1396,7 +1396,8 @@ (defun zone-save (zones &key (format :bind))
          (error "Unknown zone `~A'." z))
        (let ((stream (safely-open-output-stream safe
                                                 (zone-file-name z :zone))))
-         (zone-write format zz stream))))))
+         (zone-write format zz stream)
+         (close stream))))))
 
 ;;;--------------------------------------------------------------------------
 ;;; Bind format output.