diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-27 13:53:26 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-27 14:29:20 -0700 |
commit | 80eafed48a6310fecb87514224005ed5081a2f35 (patch) | |
tree | 5dcd697fe7fe41baf635f67852f8ec572a9a23cc | |
parent | 1f6b9570e45d84da04925512ed663947ed385912 (diff) | |
download | consfigurator-80eafed48a6310fecb87514224005ed5081a2f35.tar.gz |
define and export CONTINUE-CONNECTION and CONNECTION-PARENT
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
-rw-r--r-- | src/connection.lisp | 6 | ||||
-rw-r--r-- | src/package.lisp | 2 |
2 files changed, 8 insertions, 0 deletions
diff --git a/src/connection.lisp b/src/connection.lisp index 6e322ba..1af7a29 100644 --- a/src/connection.lisp +++ b/src/connection.lisp @@ -42,6 +42,11 @@ either CONTINUE-DEPLOY* or CONTINUE-DEPLOY*-PROGRAM and returns nil. Any implementation which calls CONTINUE-DEPLOY*-PROGRAM will need to call UPLOAD-ALL-PREREQUISITE-DATA.")) +(defgeneric continue-connection (connection remaining) + (:documentation + "Called by implementations of ESTABLISH-CONNECTION which return nil. +Calls CONTINUE-DEPLOY* or CONTINUE-DEPLOY*-PROGRAM.")) + (defgeneric preprocess-connection-args (type &key) (:documentation "Hook to allow connection types to do work in the root Lisp before @@ -56,6 +61,7 @@ For an example of usage, see the :SUDO connection type.")) (defclass connection () ((parent :initform *connection* + :reader connection-parent :documentation "The value of *CONNECTION* at the time this connection was established.") (cached-data diff --git a/src/package.lisp b/src/package.lisp index 761a4af..014840b 100644 --- a/src/package.lisp +++ b/src/package.lisp @@ -78,10 +78,12 @@ ;; connection.lisp #:establish-connection + #:continue-connection #:preprocess-connection-args #:connection #:lisp-connection #:posix-connection + #:connection-parent #:lisp-connection-p #:reset-remote-home #:connection-run |