(defhook (prio-groups)
(dohosts (host)
(when (eq (hostprop host :vm-role) :host)
- (add-group (intern (concatenate 'string (string host) "-guests"))
+ (add-group (intern (concatenate 'string (string host) "-GUESTS"))
:predicate (lambda (h) (eql (hostprop h :vm-host) host))))))
;; For each `:os' flavour, define a group of hosts running it.
(when foundp (pushnew os oses))))
(dolist (os-mut oses)
(let ((os os-mut))
- (add-group (intern (concatenate 'string (string os) "-hosts"))
+ (add-group (intern (concatenate 'string (string os) "-HOSTS"))
:predicate (lambda (h) (eql (hostprop h :os) os)))))))
;; For each ROLE listed in a `:server' list, define a `ROLE-servers' group.
(pushnew role server-roles)))
(dolist (r server-roles)
(let ((role r))
- (add-group (intern (concatenate 'string (string role) "-servers"))
+ (add-group (intern (concatenate 'string (string role) "-SERVERS"))
:predicate (lambda (h)
(member role (hostprop h :server))))))))