diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-16 23:36:53 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-16 23:36:53 -0700 |
| commit | dab7708eec7b734920273d82d81b6d8463abab28 (patch) | |
| tree | e544d01660ffd25af0114fd11f81f3b175c2bf7c /src/data | |
| parent | a241758f5d48d3ebfcd7caaec9ee66a79e020208 (diff) | |
| download | consfigurator-dab7708eec7b734920273d82d81b6d8463abab28.tar.gz | |
fix a loop, some function calls and a declaration
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/data')
| -rw-r--r-- | src/data/asdf.lisp | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/data/asdf.lisp b/src/data/asdf.lisp index cec3724..98d2e4f 100644 --- a/src/data/asdf.lisp +++ b/src/data/asdf.lisp @@ -10,7 +10,8 @@ (Defun get-path-to-concatenated-system (iden1 system) "Try to concatenate all the source code for SYSTEM, store it somewhere and return the filename." - (let ((cache-dir (uiop:ensure-pathname-directory + (declare (ignore iden1)) + (let ((cache-dir (uiop:ensure-directory-pathname (strcat (or (uiop:getenv "XDG_CACHE_HOME") (strcat (uiop:getenv "HOME") "/.cache")) "/consfigurator/systems"))) |