hosts/host-defs.lisp: Make group names be properly SHOUTY symbols.

They look better in debugging output this way.

diff --git a/hosts/host-defs.lisp b/hosts/host-defs.lisp
index 5e6039b..ae5fd1e 100644 (file)
--- a/hosts/host-defs.lisp
+++ b/hosts/host-defs.lisp
@@ -26,7 +26,7 @@
 (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.
@@ -37,7 +37,7 @@
        (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.
@@ -48,7 +48,7 @@
        (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))))))))