diff options
| -rw-r--r-- | src/host.lisp | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/host.lisp b/src/host.lisp index 5435286..8e4c42e 100644 --- a/src/host.lisp +++ b/src/host.lisp @@ -132,8 +132,7 @@ entries." `(progn (declaim (type host ,hostname-sym)) (defparameter ,hostname-sym - (%replace-propspec-into-host (make-host :hostattrs ',attrs) - (props seqprops ,@properties)) + (make-host :hostattrs ',attrs :propspec (props seqprops ,@properties)) ,(car (getf attrs :desc))) ,@(and deploy `((defdeploy ,hostname-sym (,deploy ,hostname-sym))))))) |