diff options
Diffstat (limited to 'src/connection')
| -rw-r--r-- | src/connection/fork.lisp | 4 | ||||
| -rw-r--r-- | src/connection/rehome.lisp | 3 |
2 files changed, 2 insertions, 5 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 diff --git a/src/connection/rehome.lisp b/src/connection/rehome.lisp index 77aaf6d..5b57d5f 100644 --- a/src/connection/rehome.lisp +++ b/src/connection/rehome.lisp @@ -26,9 +26,6 @@ (:documentation "A connection which works by switching to a new HOME on the same host.")) -(defmethod post-fork :before ((connection rehome-connection)) - (reset-remote-home)) - (defmethod connection-upload ((connection rehome-connection) (data file-data)) (with-slots (iden1 iden2 data-version) data (let ((inside (data-pathname |