From db650186699ec82de2cfc9c2cbed1816b231cfec Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sat, 13 Mar 2021 14:01:38 -0700 Subject: attempt to implement revised propspecs spec Signed-off-by: Sean Whitton --- src/deployment.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/deployment.lisp') diff --git a/src/deployment.lisp b/src/deployment.lisp index 91b46a8..4df5b59 100644 --- a/src/deployment.lisp +++ b/src/deployment.lisp @@ -33,7 +33,7 @@ connections in CONNECTIONS have been both normalised and preprocessed." (apply #'establish-connection type remaining args))) (if remaining (connect remaining) - (eval-propspec (host-propspec *host*))) + (propappapply (eval-propspec (host-propspec *host*)))) (connection-teardown *connection*))))) ;; make a partial own-copy of HOST so that connections can add new pieces ;; of required prerequisite data; specifically, so that they can request @@ -94,7 +94,7 @@ ADDITIONAL-PROPERTIES can override the host's usual static informational attributes, in the same way that later entries in the list of properties specified in DEFHOST forms can override earlier entries (see DEFHOST's docstring)." - `(deploy* ',connections ,host ,(props additional-properties))) + `(deploy* ',connections ,host (props eseqprops ,@additional-properties))) (defmacro deploy-these (connections host &body properties) "Like DEPLOY, except apply each of the properties specified by PROPERTIES, @@ -113,7 +113,7 @@ properties, plus any set by PROPERTIES. Static informational attributes set by PROPERTIES can override the host's usual static informational attributes, in the same way that later entries in the list of properties specified in DEFHOST forms can override earlier entries (see DEFHOST's docstring)." - `(deploy-these* ',connections ,host ,(props properties))) + `(deploy-these* ',connections ,host (props eseqprops ,@properties))) (defmacro defdeploy (name (connections host) &body additional-properties) "Define a function which does (DEPLOY CONNECTIONS HOST ADDITIONAL-PROPERTIES). -- cgit v1.2.3