Fix *default-tmpdir* setting when using /tmp/.

This commit is contained in:
Dimitri Fontaine 2013-10-20 01:01:29 +02:00
parent f619054c79
commit 6d322fba7c

View File

@ -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.")