diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-18 16:45:44 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-18 16:57:32 -0700 |
| commit | dae5803d35680c2b60d4890c5957776eae6ea32e (patch) | |
| tree | 44bb5b04416edbcab56cd94d17f6fbe0882f2f8a /src/data | |
| parent | 7ce78aa1536652789de1c1d6d68e1db6d2030353 (diff) | |
| download | consfigurator-dae5803d35680c2b60d4890c5957776eae6ea32e.tar.gz | |
import some names from uiop
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/data')
| -rw-r--r-- | src/data/asdf.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/data/asdf.lisp b/src/data/asdf.lisp index 914f242..f6aec08 100644 --- a/src/data/asdf.lisp +++ b/src/data/asdf.lisp @@ -28,9 +28,9 @@ "Try to concatenate all the source code for SYSTEM, store it somewhere and return the filename." (declare (ignore iden1)) - (let ((cache-dir (uiop:ensure-directory-pathname - (strcat (or (uiop:getenv "XDG_CACHE_HOME") - (strcat (uiop:getenv "HOME") "/.cache")) + (let ((cache-dir (ensure-directory-pathname + (strcat (or (getenv "XDG_CACHE_HOME") + (strcat (getenv "HOME") "/.cache")) "/consfigurator/systems"))) (op 'asdf:monolithic-concatenate-source-op) (co (asdf:find-component system nil))) |