diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-23 12:12:09 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-23 16:14:52 -0700 |
| commit | 7276b811c2c0d817496094be9c51b89538c8eef7 (patch) | |
| tree | 42e9a4fb8d69b79f371578165f229d8d801adf36 /src/data.lisp | |
| parent | 3a13e374169586f53a20a52f3584b342626792db (diff) | |
| download | consfigurator-7276b811c2c0d817496094be9c51b89538c8eef7.tar.gz | |
use ENSURE-DIRECTORY-PATHNAME in LOCAL-DATA-PATHNAME
Might be useful for some callers, and makes sense to do it now the three
arguments are named.
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/data.lisp')
| -rw-r--r-- | src/data.lisp | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/data.lisp b/src/data.lisp index 3dfc2da..ffe905c 100644 --- a/src/data.lisp +++ b/src/data.lisp @@ -266,9 +266,10 @@ properties, or data sources which return objects referencing existing files. Note that since prerequisite data sources are queried only in the root Lisp, but items of prerequisite data are never uploaded to the root Lisp, there is no risk of clashes between fresly generated files and cached copies of files." - (ensure-directories-exist - (apply #'data-pathname (get-local-data-cache-dir) - (delete-if #'null (list iden1 iden2 version))))) + (let ((pn (apply #'data-pathname (get-local-data-cache-dir) + (delete-if #'null (list iden1 iden2 version))))) + (ensure-directories-exist + (if version pn (ensure-directory-pathname pn))))) (defun remote-data-pathname (&rest args) (apply #'data-pathname (get-remote-data-cache-dir) args)) |