Lisp: Change Lisp-to-JSON conventions.

[distorted-ansible] / hosts / hosts.lisp

diff --git a/hosts/hosts.lisp b/hosts/hosts.lisp
index b8436a2..2d3724e 100644 (file)
--- a/hosts/hosts.lisp
+++ b/hosts/hosts.lisp
@@ -9,39 +9,39 @@
   :hypervisor :kvm
   :os :debian
   :location house
-  :server (:multihome :ntp))
+  :server #(:multihome :ntp))
 
 (defhost radius
   :vm-host ibanez
   :os :debian
-  :server (:router :dns :syslog :vpn))
+  :server #(:router :dns :syslog :vpn))
 
 (defhost roadstar
   :vm-host ibanez
   :os :debian
-  :server (:multihome :dns :ftp :http :nfs :www-cache :rsync :munin))
+  :server #(:multihome :dns :ftp :http :nfs :www-cache :rsync :munin))
 
 (defhost jem
   :vm-host ibanez
   :os :debian
-  :server (:multihome :login :rsync :http :nfs :mail))
+  :server #(:multihome :login :rsync :http :nfs :mail))
 
 (defhost artist
   :vm-host ibanez
   :os :debian
-  :server (:router :login :http :rsync :mail))
+  :server #(:router :login :http :rsync :mail))
 
 ;; Other servers.
 
 (defhost vampire
   :os :debian
   :location house
-  :server (:router :ntp :vpn :nfs))
+  :server #(:router :ntp :vpn :nfs))
 
 (defhost groove
   :os :debian
   :location house
-  :server (:http))
+  :server #(:http))
 
 ;; Clients.
 
@@ -64,26 +64,26 @@
   :hypervisor :kvm
   :os :debian
   :location jump
-  :server (:multihome :ntp))
+  :server #(:multihome :ntp))
 
 (defhost precision
   :vm-host fender
   :os :debian
-  :server (:router :dns :vpn))
+  :server #(:router :dns :vpn))
 
 (defhost telecaster
   :vm-host fender
   :os :debian
-  :server (:multihome :dns :ftp :http :rsync :munin :nfs))
+  :server #(:multihome :dns :ftp :http :rsync :munin :nfs))
 
 (defhost stratocaster
   :vm-host fender
   :os :debian
-  :server (:multihome :login :rsync :http :nfs :mail-hub))
+  :server #(:multihome :login :rsync :http :nfs :mail-hub))
 
 (defhost jazz
   :vm-host fender
   :os :debian
-  :server (:multihome :login :http :mail :vpn))
+  :server #(:multihome :login :http :mail :vpn))
 
 ;;;----- That's all, folks --------------------------------------------------