diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-19 10:47:43 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-19 18:56:59 -0700 |
commit | a21b062e12e1133b5ac2faa978c08ce840ef5e02 (patch) | |
tree | 4b9e0889a98491120cea0edcda03953ab903aa53 /src/deployment.lisp | |
parent | 871e9c2c82f485c655a0ce97efbd9d97d9016a4c (diff) | |
download | consfigurator-a21b062e12e1133b5ac2faa978c08ce840ef5e02.tar.gz |
pull MAKE-PROPSPEC out of PROPS & set SYSTEMS from *HOST*
We want a property application specification expression to be what goes into
DEFPROPSPEC because then we can set the systems slot based on the host to
which the property is applied, rather than looking at *CONSFIG*.
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/deployment.lisp')
-rw-r--r-- | src/deployment.lisp | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/deployment.lisp b/src/deployment.lisp index ebef6f4..693afb9 100644 --- a/src/deployment.lisp +++ b/src/deployment.lisp @@ -109,7 +109,8 @@ ADDITIONAL-PROPERTIES may set additional hostattrs)." `(deploy* ',connections ,host (let ((*host* (shallow-copy-host ,host))) - (props eseqprops ,@additional-properties))))) + (make-propspec + :propspec (props eseqprops ,@additional-properties)))))) (defmacro deploy-these (connections host &body properties) "Like DEPLOY, except apply each of the properties specified by PROPERTIES, @@ -137,7 +138,8 @@ set additional hostattrs)." `(deploy-these* ',connections ,host (let ((*host* (shallow-copy-host ,host))) - (props eseqprops ,@properties))))) + (make-propspec + :propspec (props eseqprops ,@properties)))))) (defmacro defdeploy (name (connections host) &body additional-properties) "Define a function which does (DEPLOY CONNECTIONS HOST ADDITIONAL-PROPERTIES). |