diff options
| -rw-r--r-- | src/connection/debian-sbcl.lisp | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/src/connection/debian-sbcl.lisp b/src/connection/debian-sbcl.lisp index 5ebd084..f912d5a 100644 --- a/src/connection/debian-sbcl.lisp +++ b/src/connection/debian-sbcl.lisp @@ -17,9 +17,17 @@ (in-package :consfigurator.connection.debian-sbcl) + +;; (handler-bind ((missing-data-source #'skip-data-source)) +;; ...) + + (defmethod establish-connection ((type (eql :debian-sbcl)) remaining &key) - (loop for system in (slot-value (slot-value *host* :hostattrs) :systems) - do (push (cons "lisp-system" system) (getf *host* :data))) + ;; any connection type which starts up a Lisp connection is going to want to + ;; do something like what this loop does, so just make it a core function? + ;; (loop for system in (slot-value (slot-value *host* :hostattrs) :systems) + ;; do (push (cons "lisp-system" system) (getf *host* :data))) + (unless (= 0 (nth-value 1 (run "which" "sbcl" "2>/dev/null" "||" "apt-get" "-y" "install" "sbcl"))) (error "Could not get sbcl installed on the remote host")) |