From c85b361044c1621b2d48597da36e427618aabc67 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sun, 3 Apr 2022 09:41:01 -0700 Subject: add PUSH-HOSTATTR, don't use &rest in PUSH-HOSTATTRS & fix docstring Signed-off-by: Sean Whitton --- src/property/os.lisp | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) (limited to 'src/property/os.lisp') 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"))) -- cgit v1.2.3