diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2022-04-03 09:41:01 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-04-04 14:47:03 -0700 |
| commit | c85b361044c1621b2d48597da36e427618aabc67 (patch) | |
| tree | 07bacb6bb2967af73c77bd4e6e0ab37556fa6782 /src/property/os.lisp | |
| parent | 006d3969bad1f84c0133a36ed9a623b59bd01c0e (diff) | |
| download | consfigurator-c85b361044c1621b2d48597da36e427618aabc67.tar.gz | |
add PUSH-HOSTATTR, don't use &rest in PUSH-HOSTATTRS & fix docstring
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property/os.lisp')
| -rw-r--r-- | src/property/os.lisp | 20 |
1 files changed, 10 insertions, 10 deletions
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"))) |