diff options
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 ... ") |