From 0dce5f6c3024660929d104fb5299a999a82fc224 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Tue, 21 Sep 2021 22:14:49 -0700 Subject: :SBCL: avoid adding :DATA hostattrs that persist in *HOST* Signed-off-by: Sean Whitton --- src/connection/sbcl.lisp | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'src/connection') 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) -- cgit v1.2.3