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 /src/connection.lisp | |
parent | 1f6b9570e45d84da04925512ed663947ed385912 (diff) | |
download | consfigurator-80eafed48a6310fecb87514224005ed5081a2f35.tar.gz |
define and export CONTINUE-CONNECTION and CONNECTION-PARENT
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/connection.lisp')
-rw-r--r-- | src/connection.lisp | 6 |
1 files changed, 6 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 |