chiark / gitweb /
zone.lisp: Use a synthetic pathname as the temporary-files template.
authorMark Wooding <mdw@distorted.org.uk>
Mon, 22 Dec 2014 20:32:58 +0000 (20:32 +0000)
committerMark Wooding <mdw@distorted.org.uk>
Tue, 23 Dec 2014 11:57:36 +0000 (11:57 +0000)
zone.lisp

index 726791f..1557c0a 100644 (file)
--- a/zone.lisp
+++ b/zone.lisp
@@ -1104,7 +1104,7 @@ (defun convert-tlsa-selector-data (data selector match)
                (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))