diff options
Diffstat (limited to 'src/image.lisp')
-rw-r--r-- | src/image.lisp | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/src/image.lisp b/src/image.lisp index ce3a34a..8bc34b3 100644 --- a/src/image.lisp +++ b/src/image.lisp @@ -142,11 +142,10 @@ already running from FILENAME." (format nil "Dumped image to evaluate ~S" form) "Dumped image to execute current deployment")) (:apply - (let ((file (or filename (ensure-directories-exist - (ensure-pathname - (strcat (or (getenv "XDG_CACHE_HOME") - (strcat (getenv "HOME") "/.cache")) - "/consfigurator/images/latest")))))) + (let ((file (or filename + (ensure-directories-exist + (merge-pathnames "consfigurator/images/latest" + (get-connattr :XDG-CACHE-HOME)))))) (unless (and (not always) (eql :linux (uiop:operating-system)) (pathname-equal file (resolve-symlinks "/proc/self/exe"))) |