diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-05-29 15:12:54 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-05-30 10:03:03 -0700 |
| commit | edbba484918f6de83680a5b29e561fba981e05e9 (patch) | |
| tree | 9418abacd664e22fe7dde4137d8962825943d168 /src/deployment.lisp | |
| parent | dc396f800b11fc9aa4bae07df268ad51a2740d8b (diff) | |
| download | consfigurator-edbba484918f6de83680a5b29e561fba981e05e9.tar.gz | |
factor out ENSURE-HOST & call it in hostattrs accessors
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/deployment.lisp')
| -rw-r--r-- | src/deployment.lisp | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/deployment.lisp b/src/deployment.lisp index 226c55d..8f95f3f 100644 --- a/src/deployment.lisp +++ b/src/deployment.lisp @@ -156,9 +156,7 @@ The evaluation of PROPERTIES to produce a property application specification may retrieve existing hostattrs, but should not set any new ones (not to be confused with how the :HOSTATTRS subroutines of properties in PROPERTIES may set additional hostattrs)." - (once-only ((host (if (stringp host) - `(make-host :hostattrs (list :hostname (list ,host))) - host))) + (once-only ((host `(ensure-host ,host))) `(deploy-these* ',connections ,host (let ((*host* (shallow-copy-host ,host))) |