diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-22 10:25:38 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-22 10:25:38 -0700 |
| commit | 9343a90bb25fa9180a61ffb408969a6acc62107f (patch) | |
| tree | 1d4ccbab2897bafee01f6671fdd34c1d7004c0fa /src/deployment.lisp | |
| parent | 237730fe5bb6b3eeb8edc2d3bb4b5cbfb99ee8c9 (diff) | |
| download | consfigurator-9343a90bb25fa9180a61ffb408969a6acc62107f.tar.gz | |
attempt to implement :DEBIAN-SBCL connection type
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/deployment.lisp')
| -rw-r--r-- | src/deployment.lisp | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/deployment.lisp b/src/deployment.lisp index 91f14f0..3e6caad 100644 --- a/src/deployment.lisp +++ b/src/deployment.lisp @@ -55,6 +55,11 @@ Deployments bind this variable. Its global value should remain nil. The main point of this is to allow properties to access the context in which they're being applied.") +;; this exists just to avoid exposing *HOST* but otherwise it's not really a +;; nice abstraction +(defun deploy*-form-for-remote-lisp (remaining) + `(deploy* ,(or remaining :local) *host*)) + (defmacro deploy (connection host &body additional-properties) "Establish a connection of type CONNECTION to HOST, and apply each of the host's usual properties, followed by specified by ADDITIONAL-PROPERTIES, an |