diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-23 13:35:23 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-23 13:35:23 -0700 |
| commit | 8edaf3ba10d7e03fe4ef78e47494c07f1674e6ce (patch) | |
| tree | 4ce7c9e5529e82c81a0dc881647c5dcfd5533cbd | |
| parent | 1f9a53a2189149f121d023c8350df70a5a011e36 (diff) | |
| download | consfigurator-8edaf3ba10d7e03fe4ef78e47494c07f1674e6ce.tar.gz | |
comment->docstring
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
| -rw-r--r-- | src/data.lisp | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/data.lisp b/src/data.lisp index 1e7dd1e..48d4142 100644 --- a/src/data.lisp +++ b/src/data.lisp @@ -349,8 +349,11 @@ UPLOAD-ALL-PREREQUISITE-DATA." (loop for system in (slot-value (slot-value *host* 'propspec) 'systems) collect `(load ,(remote-data-pathname "--lisp-system" system)))) -;; connections which start up remote Lisp images use this (defun request-lisp-systems () + "Request that all Lisp systems required by the host currently being deployed +are uploaded to the remote cache of the currently established connection. + +Called by connections which start up remote Lisp images." (dolist (system (slot-value (slot-value *host* 'propspec) 'systems)) (push-hostattrs :data (cons "--lisp-system" (etypecase system |