diff options
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))))))) |