diff options
-rw-r--r-- | src/deployment.lisp | 24 | ||||
-rw-r--r-- | src/package.lisp | 2 |
2 files changed, 8 insertions, 18 deletions
diff --git a/src/deployment.lisp b/src/deployment.lisp index 18a747d..2b96f80 100644 --- a/src/deployment.lisp +++ b/src/deployment.lisp @@ -108,13 +108,6 @@ DEFHOST forms can override earlier entries (see DEFHOST's docstring)." (eval-propspec-hostattrs ,propspec)) (deploy* ',connection ,new-host)))) -(defvar *last-hop-info* nil - "Plist of information about most recently established connection hop. Can be -used by implementations of ESTABLISH-CONNECTION.") - -(defvar *this-hop-info* nil - "Plist which will become the value of *LAST-HOP-INFO*.") - ;; this is the main do-work loop for Consfigurator; remote Lisp images are ;; instructed to pick up the remaining work of this loop (defun deploy* (connections host) @@ -127,15 +120,14 @@ used by implementations of ESTABLISH-CONNECTION.") (labels ((connect (connections) (destructuring-bind ((type . args) . remaining) connections - (let ((*last-hop-info* *this-hop-info*) *this-hop-info*) - ;; implementations of ESTABLISH-CONNECTION return nil if they - ;; have handed off to a remote Lisp image - (when-let ((*connection* - (apply #'establish-connection type remaining args))) - (if remaining - (connect remaining) - (apply-propspec (slot-value *host* 'propspec))) - (connection-teardown *connection*))))) + ;; implementations of ESTABLISH-CONNECTION return nil if they + ;; have handed off to a remote Lisp image + (when-let ((*connection* + (apply #'establish-connection type remaining args))) + (if remaining + (connect remaining) + (apply-propspec (slot-value *host* 'propspec))) + (connection-teardown *connection*)))) (apply-propspec (propspec) (when (and (subtypep (class-of *connection*) 'posix-connection) (eq :lisp (propspec->type propspec))) diff --git a/src/package.lisp b/src/package.lisp index e01b052..6aab491 100644 --- a/src/package.lisp +++ b/src/package.lisp @@ -103,8 +103,6 @@ #:deploy-these #:deploys #:deploys-these - #:*last-hop-info - #:*this-hop-info* ;; data.lisp #:data |