From a21b062e12e1133b5ac2faa978c08ce840ef5e02 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Fri, 19 Mar 2021 10:47:43 -0700 Subject: 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 --- src/host.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'src/host.lisp') diff --git a/src/host.lisp b/src/host.lisp index 8e4c42e..cbc756d 100644 --- a/src/host.lisp +++ b/src/host.lisp @@ -132,7 +132,9 @@ entries." `(progn (declaim (type host ,hostname-sym)) (defparameter ,hostname-sym - (make-host :hostattrs ',attrs :propspec (props seqprops ,@properties)) + (make-host :hostattrs ',attrs + :propspec (make-propspec + :propspec (props seqprops ,@properties))) ,(car (getf attrs :desc))) ,@(and deploy `((defdeploy ,hostname-sym (,deploy ,hostname-sym))))))) -- cgit v1.2.3