From 427388aea364e5cfcd62096b012d1904de65dd9a Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sat, 2 Apr 2022 12:32:00 -0700 Subject: DATA.LOCAL-FILE: use :LOCATION not :FILE for keyword argument For consistency with some other data sources. Signed-off-by: Sean Whitton --- src/data/local-file.lisp | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) (limited to 'src/data') diff --git a/src/data/local-file.lisp b/src/data/local-file.lisp index 7f94dff..275746a 100644 --- a/src/data/local-file.lisp +++ b/src/data/local-file.lisp @@ -19,21 +19,22 @@ (named-readtables:in-readtable :consfigurator) (defmethod register-data-source - ((type (eql :local-file)) &key file version iden1 iden2) + ((type (eql :local-file)) &key location version iden1 iden2) "Provide the contents of a single local file on the machine running the root Lisp. Register this data source more than once to provide multiple files. The version of the data provided is either VERSION or the file's last modification time." - (unless (file-exists-p file) - (missing-data-source "~A does not exist." file)) + (unless (file-exists-p location) + (missing-data-source "~A does not exist." location)) (cons (lambda (iden1* iden2*) (and (string= iden1 iden1*) (string= iden2 iden2*) - (file-exists-p file) - (or version (file-write-date file)))) + (file-exists-p location) + (or version (file-write-date location)))) (lambda (iden1* iden2*) (and (string= iden1 iden1*) (string= iden2 iden2*) - (file-exists-p file) + (file-exists-p location) (make-instance 'file-data - :file file + :file location :iden1 iden1 :iden2 iden2 - :version (or version (file-write-date file))))))) + :version (or version + (file-write-date location))))))) -- cgit v1.2.3