From 5bc6b584b5bafd701dc2c36401959f749942b8f1 Mon Sep 17 00:00:00 2001
From: Mark Wooding <mdw@distorted.org.uk>
Date: Mon, 22 Dec 2014 20:32:58 +0000
Subject: [PATCH] zone.lisp: Close output files after writing.

Otherwise we end up with lots of open files for no good reason.
---
 zone.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/zone.lisp b/zone.lisp
index 7db70b1..c800f1f 100644
--- a/zone.lisp
+++ b/zone.lisp
@@ -1396,7 +1396,8 @@
 	  (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.
-- 
2.11.0