diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-18 09:47:45 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-18 09:55:57 -0700 |
commit | ce78759bccc46051b34f4710a4cdca9846dedd5e (patch) | |
tree | 15601bf6a36d3cae7bab0d19f40614a92b3e4780 /src/host.lisp | |
parent | 6456fba9f56f2cc1f37043349b1b5be512e3220f (diff) | |
download | consfigurator-ce78759bccc46051b34f4710a4cdca9846dedd5e.tar.gz |
DEFHOST does not need to call %REPLACE-PROPSPEC-INTO-HOST
Doing so was also causing preprocessing to happen too early.
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/host.lisp')
-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))))))) |