:predicate (lambda (h) (eql (hostprop h :os) os)))))))
;; For each ROLE listed in a `:server' list, define a `ROLE-servers' group.
(defhook (prio-groups)
(let ((server-roles nil))
(dohosts (host)
:predicate (lambda (h) (eql (hostprop h :os) os)))))))
;; For each ROLE listed in a `:server' list, define a `ROLE-servers' group.
(defhook (prio-groups)
(let ((server-roles nil))
(dohosts (host)