diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-22 10:37:03 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-22 10:37:03 -0700 |
commit | d78265215e967750fa6db21908a1464eacbc6d20 (patch) | |
tree | 047a172e79fe3aafa11caa006c34eee1a433b971 /src/connection/sbcl.lisp | |
parent | f393eeebe8cf6a31ecc2160658bee3d2c895a98b (diff) | |
download | consfigurator-d78265215e967750fa6db21908a1464eacbc6d20.tar.gz |
support passing :CHECK at beginning of DEFPROPLIST and DEFPROPSPEC
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/connection/sbcl.lisp')
-rw-r--r-- | src/connection/sbcl.lisp | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/src/connection/sbcl.lisp b/src/connection/sbcl.lisp index 2cc73a6..93b340e 100644 --- a/src/connection/sbcl.lisp +++ b/src/connection/sbcl.lisp @@ -18,18 +18,14 @@ (in-package :consfigurator.connection.sbcl) (named-readtables:in-readtable :consfigurator) -(defprop sbcl-available :posix () +(defproplist sbcl-available :posix () (:check (zerop (mrun :for-exit "command" "-v" "sbcl"))) - (:apply - (typecase (class-of (get-hostattrs-car :os)) - (os:debianlike - (ignoring-hostattrs (apt:installed "sbcl"))) - (t - (failed-change "Do not know how to install SBCL on this OS."))))) + (os:typecase + (debianlike (apt:installed "sbcl")))) (defmethod establish-connection ((type (eql :sbcl)) remaining &key) - (sbcl-available) + (ignoring-hostattrs (sbcl-available)) (request-lisp-systems) (upload-all-prerequisite-data) (inform t "Waiting for remote Lisp to exit, this may take some time ... ") |