diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-26 14:45:52 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-26 14:45:52 -0700 |
| commit | 856d654f7cff0e2be1feea155303486b18cc8e3f (patch) | |
| tree | d8d38b23ee86552014583b4de0fe76df433523da /src | |
| parent | 9dcb43ca6410fcc898ddbdd14f1cea6d30ea581a (diff) | |
| download | consfigurator-856d654f7cff0e2be1feea155303486b18cc8e3f.tar.gz | |
drop support for passing a host to UPLOAD-ALL-PREREQUISITE-DATA
This wasn't being used anywhere.
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src')
| -rw-r--r-- | src/data.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/data.lisp b/src/data.lisp index 38d9267..3c163c6 100644 --- a/src/data.lisp +++ b/src/data.lisp @@ -190,7 +190,7 @@ clashes. It should not be called by properties." ;; called by implementations of ESTABLISH-CONNECTION which start up remote ;; Lisp images -(defun upload-all-prerequisite-data (&optional (host *host*)) +(defun upload-all-prerequisite-data () (macrolet ((highest-version-in-cache (cache) `(third (car (remove-if-not (lambda (c) (and (string= (first c) iden1) @@ -203,7 +203,7 @@ clashes. It should not be called by properties." (get-local-cached-prerequisite-data)) with sorted-remote-cache = (sort-prerequisite-data-cache (get-remote-cached-prerequisite-data)) - for (iden1 . iden2) in (getf (slot-value host 'hostattrs) :data) + for (iden1 . iden2) in (get-hostattrs :data) for highest-local-cached-version = (highest-version-in-cache sorted-local-cache) |