add PUSH-HOSTATTR, don't use &rest in PUSH-HOSTATTRS & fix docstring

Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>

9 files changed, 19 insertions, 19 deletions

diff --git a/src/property/container.lisp b/src/property/container.lisp
index b23d3df..a269b91 100644
--- a/src/property/container.lisp
+++ b/src/property/container.lisp
@@ -39,7 +39,7 @@ This property is usually set by properties which establish containers, like
 CHROOT:OS-BOOTSTRAPPED, rather than being added to DEFHOST forms."
   (:desc (format nil "~{~(~S~)~^, ~} ~:*~1{~#[are~;is~:;are~]~} contained"
                  contained))
-  (:hostattrs (apply #'push-hostattrs 'iscontained contained)))
+  (:hostattrs (push-hostattrs 'iscontained contained)))
 
 (defmacro when-contained ((&rest contained) &body propapps)
   "Macro property combinator.  Apply each of PROPAPPS only when outside of any
diff --git a/src/property/disk.lisp b/src/property/disk.lisp
index 52a9047..582bcf5 100644
--- a/src/property/disk.lisp
+++ b/src/property/disk.lisp
@@ -818,7 +818,7 @@ the LVM physical volumes corresponding to those volume groups."
   (:desc "Has specified volumes.")
   (:hostattrs
    (os:required 'os:linux)
-   (apply #'push-hostattrs :volumes volumes)))
+   (push-hostattrs :volumes volumes)))
 
 ;; TODO This should probably be in another package, and exported from there.
 (defproplist caches-cleaned :posix ()
diff --git a/src/property/hostname.lisp b/src/property/hostname.lisp
index da1610e..f4d4d8e 100644
--- a/src/property/hostname.lisp
+++ b/src/property/hostname.lisp
@@ -28,7 +28,7 @@
 Useful for hosts implicitly defined inline using dotted propapp notation.
 Unlikely to be useful for hosts defined using DEFHOST."
   (:desc #?"Hostname is ${hostname}")
-  (:hostattrs (push-hostattrs :hostname hostname)))
+  (:hostattrs (push-hostattr :hostname hostname)))
 
 (defpropspec configured :posix
     (&optional (hostname (get-hostname) hostname-supplied-p)
diff --git a/src/property/os.lisp b/src/property/os.lisp
index 65fdc6a..7fd5f25 100644
--- a/src/property/os.lisp
+++ b/src/property/os.lisp
@@ -30,7 +30,7 @@
 
 (defprop linux :posix (architecture)
   (:desc "Host kernel is Linux")
-  (:hostattrs (push-hostattrs :os (make-instance 'linux :arch architecture))))
+  (:hostattrs (push-hostattr :os (make-instance 'linux :arch architecture))))
 
 (define-simple-print-object linux)
 
@@ -53,9 +53,9 @@
    (declare (ignore architecture))
    #?{Host is Debian "${suite}"})
   (:hostattrs
-   (push-hostattrs :os
-                   (make-instance 'debian-stable
-                                  :arch architecture :suite suite))))
+   (push-hostattr :os
+                  (make-instance 'debian-stable
+                                 :arch architecture :suite suite))))
 
 (defclass debian-testing (debian)
   ((suite :initform "testing")))
@@ -68,9 +68,9 @@
    (declare (ignore architecture))
    "Host is Debian testing")
   (:hostattrs
-   (push-hostattrs :os
-                   (make-instance 'debian-testing
-                                  :arch architecture))))
+   (push-hostattr :os
+                  (make-instance 'debian-testing
+                                 :arch architecture))))
 
 (defclass debian-unstable (debian)
   ((suite :initform "unstable")))
@@ -83,9 +83,9 @@
    (declare (ignore architecture))
    "Host is Debian unstable")
   (:hostattrs
-   (push-hostattrs :os
-                   (make-instance 'debian-unstable
-                                  :arch architecture))))
+   (push-hostattr :os
+                  (make-instance 'debian-unstable
+                                 :arch architecture))))
 
 (defclass debian-experimental (debian)
   ((suite :initform "experimental")))
diff --git a/src/property/postgres.lisp b/src/property/postgres.lisp
index dae00e7..4eb4dcd 100644
--- a/src/property/postgres.lisp
+++ b/src/property/postgres.lisp
@@ -28,7 +28,7 @@
   "Record Postgres superuser"
   (:desc "postgres superuser is ${name}")
   (:hostattrs
-   (push-hostattrs 'postgres-superuser name)))
+   (push-hostattr 'postgres-superuser name)))
 
 (defprop %psql :posix (sql &key unless)
   (:check
diff --git a/src/property/schroot.lisp b/src/property/schroot.lisp
index 2e6cb40..0851e9b 100644
--- a/src/property/schroot.lisp
+++ b/src/property/schroot.lisp
@@ -31,7 +31,7 @@ Adding this property does not actually ensure that the line
 'union-type=overlay' is present in any schroot config files.  See SBUILD:BUILT
 for example usage, via SCHROOT:OVERLAYS-IN-TMPFS."
   (:desc "schroots on host use union-type=overlay")
-  (:hostattrs (push-hostattrs 'uses-overlays t)))
+  (:hostattrs (push-hostattr 'uses-overlays t)))
 
 (defprop overlays-in-tmpfs :posix ()
   "Configure schroot(1) such that all schroots with 'union-type=overlay' in
@@ -43,7 +43,7 @@ Implicitly sets SCHROOT:USES-OVERLAYS.
 
 Shell script from <https://wiki.debian.org/sbuild>."
   (:desc "schroot overlays in tmpfs")
-  (:hostattrs (push-hostattrs 'uses-overlays t))
+  (:hostattrs (push-hostattr 'uses-overlays t))
   (:apply (file:has-content "/etc/schroot/setup.d/04tmpfs"
 #>EOF>#!/bin/sh
 
diff --git a/src/property/service.lisp b/src/property/service.lisp
index 6650244..3074103 100644
--- a/src/property/service.lisp
+++ b/src/property/service.lisp
@@ -28,7 +28,7 @@
 
 (defprop %no-services :posix ()
   (:hostattrs
-   (push-hostattrs :no-services t)))
+   (push-hostattr :no-services t)))
 
 (defprop %policy-rc.d :posix ()
   (:apply
diff --git a/src/property/sshd.lisp b/src/property/sshd.lisp
index ba224e0..7f35195 100644
--- a/src/property/sshd.lisp
+++ b/src/property/sshd.lisp
@@ -54,7 +54,7 @@ refuses to proceed if root has no authorized_keys."
 (defprop has-host-public-key :posix (type public-key)
   "Records an SSH public key of type TYPE as identifying this host."
   (:desc #?"Has SSH host key of type ${type}")
-  (:hostattrs (push-hostattrs 'host-public-key (cons type public-key))))
+  (:hostattrs (push-hostattr 'host-public-key (cons type public-key))))
 
 (defproplist has-host-key :posix (type public-key)
   "Installs the host key whose public part is PUBLIC-KEY and is of type TYPE.
diff --git a/src/property/timezone.lisp b/src/property/timezone.lisp
index 6474b3d..c3a5a32 100644
--- a/src/property/timezone.lisp
+++ b/src/property/timezone.lisp
@@ -21,7 +21,7 @@
 (defproplist configured :posix (timezone)
   "Set the system timezone.  TIMEZONE is a relative path under /usr/share/zoneinfo,
 e.g. \"Europe/London\"."
-  (:hostattrs (push-hostattrs 'timezone timezone))
+  (:hostattrs (push-hostattr 'timezone timezone))
   (os:etypecase
     (linux
      (file:symlinked :from "/etc/localtime"