From 68e211be1af024b849276e304cc1d18040453872 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Fri, 2 Jul 2021 13:22:08 -0700 Subject: :SBCL: don't assume that *HOST*'s OS applies to intermediate hops Signed-off-by: Sean Whitton --- src/connection/sbcl.lisp | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'src/connection/sbcl.lisp') diff --git a/src/connection/sbcl.lisp b/src/connection/sbcl.lisp index fb7fb73..00a6561 100644 --- a/src/connection/sbcl.lisp +++ b/src/connection/sbcl.lisp @@ -33,7 +33,11 @@ Lisp. This can mean that prerequisite data gets extracted from encrypted stores and stored unencrypted under ~~/.cache, and as such is not recommended.")) (unless (zerop (mrun :for-exit "command" "-v" "sbcl")) - (ignoring-hostattrs (sbcl-available))) + ;; If we're not the final hop then we don't know the OS of the host to + ;; which we're currently connected, so we can't apply SBCL-AVAILABLE. + (if remaining + (failed-change "sbcl not on PATH and don't know how to install.") + (ignoring-hostattrs (sbcl-available)))) (let ((requirements (asdf-requirements-for-host-and-features (safe-read-from-string (run :input "(prin1 *features*)" *sbcl*) -- cgit v1.2.3