From 7be16879925948d5b4bec73d20b4a674b230d74c Mon Sep 17 00:00:00 2001 From: Mark Wooding Date: Wed, 8 Jul 2015 11:05:02 +0100 Subject: [PATCH] hosts/host-defs.lisp: Make group names be properly SHOUTY symbols. They look better in debugging output this way. --- hosts/host-defs.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/hosts/host-defs.lisp b/hosts/host-defs.lisp index 5e6039b..ae5fd1e 100644 --- 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)))))))) -- 2.11.0