diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-07-02 13:22:08 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-07-07 09:46:17 -0700 |
| commit | 68e211be1af024b849276e304cc1d18040453872 (patch) | |
| tree | 7a25a08b259357d7f7187c6993c2abfdfe285fc4 /src/connection | |
| parent | 265d42c87376f7cf9b0da51856e509cee753e9ef (diff) | |
| download | consfigurator-68e211be1af024b849276e304cc1d18040453872.tar.gz | |
:SBCL: don't assume that *HOST*'s OS applies to intermediate hops
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/connection')
| -rw-r--r-- | src/connection/sbcl.lisp | 6 |
1 files changed, 5 insertions, 1 deletions
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*) |