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/connection/fork.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/connection/fork.lisp')
-rw-r--r-- | src/connection/fork.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/connection/fork.lisp b/src/connection/fork.lisp index 295f8a2..a8c3631 100644 --- a/src/connection/fork.lisp +++ b/src/connection/fork.lisp @@ -45,7 +45,7 @@ for example, such that we don't see it." (and #+sbcl (> 2 (length (sb-thread:list-all-threads))))) -(defclass fork-connection (lisp-connection) ()) +(defclass fork-connection (local-connection) ()) (defgeneric post-fork (connection) (:documentation @@ -95,7 +95,7 @@ for example, such that we don't see it." ;; the child afterwards, rather than returning to the child's ;; REPL or whatever else. (uiop:quit - (if (eql :no-change (continue-deploy* remaining)) + (if (eql :no-change (continue-deploy* connection remaining)) 0 1))))) (t |