From 030fa324859eb5b3e7b539c6e1dcbbb3fac1db4c Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sun, 29 Aug 2021 12:31:21 -0700 Subject: use UIOP:XDG-CACHE-HOME Signed-off-by: Sean Whitton --- src/image.lisp | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'src/image.lisp') diff --git a/src/image.lisp b/src/image.lisp index 8bc34b3..fc29179 100644 --- a/src/image.lisp +++ b/src/image.lisp @@ -327,9 +327,7 @@ ASDF-REQUIREMENTS, after having uploaded those Lisp systems using UPLOAD-ALL-PREREQUISITE-DATA.") (:method ((asdf-requirements asdf-requirements)) `(progn - (let* ((cache (ensure-directory-pathname - (or (getenv "XDG_CACHE_HOME") - (strcat (getenv "HOME") "/.cache")))) + (let* ((cache (uiop:xdg-cache-home)) (dest (ensure-directories-exist (merge-pathnames "consfigurator/systems/" cache))) (file (merge-pathnames -- cgit v1.2.3