DATA.LOCAL-FILE: use :LOCATION not :FILE for keyword argument

For consistency with some other data sources.

Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>

1 files changed, 9 insertions, 8 deletions

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)))))))