From 3304c0b4992943d5e440b69574e517e1b86eb394 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sun, 10 Apr 2022 14:17:57 -0700 Subject: make argument to GET-LOCAL-CACHED-PREREQUISITE-DATA required Signed-off-by: Sean Whitton --- src/data.lisp | 9 +++++---- 1 file 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) -- cgit v1.2.3