diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-04-29 13:01:49 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-04-30 17:46:39 -0700 |
| commit | 76f0787a03fde26243d0034d3c15c444df5ea69c (patch) | |
| tree | 288706fb111a3a65fa3490d97cb1c5e02fdba77e /src/deployment.lisp | |
| parent | 844818aa56e9ed75b9600f5ef6e833bb5fdacaca (diff) | |
| download | consfigurator-76f0787a03fde26243d0034d3c15c444df5ea69c.tar.gz | |
CONTINUE-DEPLOY* connections: push a new connection object
This is cleaner than resetting certain slot values.
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/deployment.lisp')
| -rw-r--r-- | src/deployment.lisp | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/deployment.lisp b/src/deployment.lisp index 5a70e15..7d1af93 100644 --- a/src/deployment.lisp +++ b/src/deployment.lisp @@ -77,12 +77,13 @@ DEFHOST forms can override earlier entries (see DEFHOST's docstring)." (%consfigure (preprocess-connections connections) (replace-propspec-into-host host properties))) -(defun continue-deploy* (remaining-connections) +(defun continue-deploy* (connection remaining-connections) "Complete the work of an enclosing call to DEPLOY* or DEPLOY-THESE*. Used by implementations of ESTABLISH-CONNECTION which need to do something like fork(2) and then return to Consfigurator's primary loop in the child." - (%consfigure remaining-connections *host*)) + (let ((*connection* connection)) + (%consfigure remaining-connections *host*))) ;; in the following two macros, bind *HOST* so that evaluation of the ;; unevaluated propspec can retrieve existing hostattrs; shallow copy just in |