diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-23 17:01:49 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-23 17:01:49 -0700 |
| commit | bf304f4c287f0a4501be6c0d4680c403a43735fd (patch) | |
| tree | 3290710ae52fea2ac3450b28f4c8cc7673daf560 /src/deployment.lisp | |
| parent | f190406af14bebb93e4632b57dae5ed675539d35 (diff) | |
| download | consfigurator-bf304f4c287f0a4501be6c0d4680c403a43735fd.tar.gz | |
implement the basic functionaltiy of :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, 0 insertions, 5 deletions
diff --git a/src/deployment.lisp b/src/deployment.lisp index 1d15217..e856b38 100644 --- a/src/deployment.lisp +++ b/src/deployment.lisp @@ -48,11 +48,6 @@ For example, if you usually deploy properties to athena by SSH, and then you can eval (athena.silentflame.com) to apply athena's properties." `(defdeploy ,host-name (,connection ,host-name))) -;; 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 |