From ce78759bccc46051b34f4710a4cdca9846dedd5e Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Thu, 18 Mar 2021 09:47:45 -0700 Subject: 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 --- src/host.lisp | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'src/host.lisp') 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))))))) -- cgit v1.2.3