From 6d322fba7cdb6d351f4ef079ff4073cc05a5a4a1 Mon Sep 17 00:00:00 2001 From: Dimitri Fontaine Date: Sun, 20 Oct 2013 01:01:29 +0200 Subject: [PATCH] Fix *default-tmpdir* setting when using /tmp/. --- archive.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/archive.lisp b/archive.lisp index 3588e70..fde46b9 100644 --- a/archive.lisp +++ b/archive.lisp @@ -6,7 +6,8 @@ (defparameter *default-tmpdir* (let* ((tmpdir (uiop:getenv "TMPDIR")) - (tmpdir (or (and tmpdir (probe-file tmpdir)) "/tmp"))) + (tmpdir (or (and tmpdir (probe-file tmpdir)) "/tmp")) + (tmpdir (fad:pathname-as-directory tmpdir))) (fad:pathname-as-directory (merge-pathnames "pgloader" tmpdir))) "Place where to fetch and expand archives on-disk.")