From 614f79f7c6550de6802dad1d61f37eb5c8f6f11f Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sat, 9 Oct 2021 12:59:22 -0700 Subject: rename :XDG-CACHE-HOME connattr to :XDG_CACHE_HOME Signed-off-by: Sean Whitton --- src/connection.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/connection.lisp') diff --git a/src/connection.lisp b/src/connection.lisp index 370d146..9a7584f 100644 --- a/src/connection.lisp +++ b/src/connection.lisp @@ -245,7 +245,7 @@ login(1)). Tilde expansion works correctly." (ensure-directory-pathname (stripln home))))) (defmethod connection-connattr - ((connection connection) (k (eql :XDG-CACHE-HOME))) + ((connection connection) (k (eql :XDG_CACHE_HOME))) (let ((env (stripln (connection-run connection "echo $XDG_CACHE_HOME" nil)))) (if (plusp (length env)) (ensure-directory-pathname env) @@ -255,7 +255,7 @@ login(1)). Tilde expansion works correctly." (defmethod connection-connattr ((connection connection) (k (eql :consfigurator-cache))) (merge-pathnames "consfigurator/" - (connection-connattr connection :XDG-CACHE-HOME))) + (connection-connattr connection :XDG_CACHE_HOME))) ;;;; Functions to access the slots of the current connection -- cgit v1.2.3