(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))