From b2581b11862dfe93881d9eb236b374d9a066581a 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: Use a synthetic pathname as the temporary-files
 template.

---
 zone.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/zone.lisp b/zone.lisp
index 726791f..1557c0a 100644
--- a/zone.lisp
+++ b/zone.lisp
@@ -1104,7 +1104,7 @@
 		(reverse-enum 'tlsa-match match)))
        bin))
     (pathname
-     (with-temporary-files (context :base "tmpfile.tmp")
+     (with-temporary-files (context :base (make-pathname :type "tmp"))
        (let* ((file (or (find-if #'probe-file
 				 (mapcar (lambda (template)
 					   (merge-pathnames data template))
-- 
2.11.0