diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-09-21 22:14:49 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-11-08 16:18:18 -0700 |
commit | 0dce5f6c3024660929d104fb5299a999a82fc224 (patch) | |
tree | 3a0679cd9052839d34d89308bee8782ad2a8c6f9 | |
parent | ad5cb4b69897d29414a7898443a5146bf0a60f34 (diff) | |
download | consfigurator-0dce5f6c3024660929d104fb5299a999a82fc224.tar.gz |
:SBCL: avoid adding :DATA hostattrs that persist in *HOST*
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
-rw-r--r-- | src/connection/sbcl.lisp | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/src/connection/sbcl.lisp b/src/connection/sbcl.lisp index db5ac7e..f487de3 100644 --- a/src/connection/sbcl.lisp +++ b/src/connection/sbcl.lisp @@ -51,8 +51,12 @@ recommended.")) (safe-read-from-string (run :input "(prin1 *features*)" *sbcl*) :package :cl-user)))) - (request-asdf-requirements requirements) - (upload-all-prerequisite-data) + ;; Don't preserve the ASDF requirements :DATA hostattrs because they are + ;; valid only for this hop, not necessarily beyond here. For example, if + ;; we have a connection chain like (:ssh :sbcl (:lxc :name ...)) then we + ;; don't want to upload all the ASDF systems into the container. + (with-preserve-hostattrs + (request-asdf-requirements requirements) (upload-all-prerequisite-data)) (inform t "Waiting for remote Lisp to exit, this may take some time ... ") (force-output) (multiple-value-bind (program forms) |