diff options
Diffstat (limited to 'src/host.lisp')
-rw-r--r-- | src/host.lisp | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/src/host.lisp b/src/host.lisp index db028a7..88b26c5 100644 --- a/src/host.lisp +++ b/src/host.lisp @@ -47,10 +47,8 @@ be applied to the host."))) (defmethod %eval-propspec-hostattrs ((host host) (propspec propspec)) "Modify HOST in-place according to :HOSTATTRS subroutines." - (loop with *host* = host - for form in (propspec-props propspec) - for propapp = (compile-propapp form) - do (propappattrs propapp))) + (let ((*host* host)) + (propappattrs (eval-propspec propspec)))) ;; return values of the following two functions share structure, and thus are ;; not safe to use except on host objects that were just made, or that are @@ -107,7 +105,7 @@ entries." (declaim (type host ,hostname-sym)) (defparameter ,hostname-sym (%replace-propspec-into-host (make-instance 'host :attrs ',attrs) - ,(props properties)) + (props seqprops ,@properties)) ,(car (getf attrs :desc))) ,@(and deploy `((defdeploy ,hostname-sym (,deploy ,hostname-sym))))))) |