diff options
-rw-r--r-- | src/deployment.lisp | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/deployment.lisp b/src/deployment.lisp index 87da731..0f90a5a 100644 --- a/src/deployment.lisp +++ b/src/deployment.lisp @@ -171,5 +171,7 @@ PROPERTIES, like DEPLOY-THESE." (ensure-cons connection)))) (defun %propagate-hostattrs (host) + (dolist (system (propspec-systems (host-propspec host))) + (pushnew system (slot-value (host-propspec *host*) 'systems))) (dolist (attr (getf (hostattrs host) :data)) (push-hostattrs :data attr))) |