From 7276b811c2c0d817496094be9c51b89538c8eef7 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Tue, 23 Mar 2021 12:12:09 -0700 Subject: 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 --- src/data.lisp | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'src/data.lisp') 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)) -- cgit v1.2.3