diff options
| -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 |