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/host.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/host.lisp')
| -rw-r--r-- | src/host.lisp | 4 |
1 files changed, 3 insertions, 1 deletions
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))))))) |