diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2022-04-10 14:17:57 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-04-10 16:41:53 -0700 |
commit | 3304c0b4992943d5e440b69574e517e1b86eb394 (patch) | |
tree | 6517c3cb93671940eb4f6d5360edac0e23e6e73c /src/data.lisp | |
parent | fda12d8fe029f5b75874ab746e30d1561ad258cc (diff) | |
download | consfigurator-3304c0b4992943d5e440b69574e517e1b86eb394.tar.gz |
make argument to GET-LOCAL-CACHED-PREREQUISITE-DATA required
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/data.lisp')
-rw-r--r-- | src/data.lisp | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/data.lisp b/src/data.lisp index 115d51c..d5f053e 100644 --- a/src/data.lisp +++ b/src/data.lisp @@ -183,7 +183,8 @@ This function is called by property :APPLY and :UNAPPLY subroutines." (and (string= (first c) iden1) (string= (second c) iden2))) (sort-prerequisite-data-cache - (get-local-cached-prerequisite-data))))) + (get-local-cached-prerequisite-data + (get-local-data-cache-dir)))))) (local-cached-version (caddr local-cached))) (cond ((and in-memory @@ -432,8 +433,7 @@ of CONNECTION, where each entry is of the form ;;;; Local caches -(defun get-local-cached-prerequisite-data - (&optional (where (get-local-data-cache-dir))) +(defun get-local-cached-prerequisite-data (where) "Scan a local cache of prerequisite data at WHERE, and return a list of items of prerequisite data where each entry is of the form @@ -464,7 +464,8 @@ properties, or data sources which return objects referencing existing files." (and (string= (car c) iden1) (string= (cadr c) iden2))) (sort-prerequisite-data-cache - (get-local-cached-prerequisite-data)))))) + (get-local-cached-prerequisite-data + (get-local-data-cache-dir))))))) (make-instance 'file-data :file (apply #'local-data-pathname triple) :iden1 (car triple) :iden2 (cadr triple) |