diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-05 13:53:56 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-05 13:53:56 -0700 |
commit | a26fa96e83f6a4cbd89348917301958f5b9deb5a (patch) | |
tree | a818e3106e78a0dd2e8a86f2553c912bbe45062d | |
parent | a62d55d0df11e529b923dab1fb07a6e9b036fb9a (diff) | |
download | consfigurator-a26fa96e83f6a4cbd89348917301958f5b9deb5a.tar.gz |
CONSFIGURATOR.PROPERTY.OS: add some descs
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
-rw-r--r-- | src/property/os.lisp | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/property/os.lisp b/src/property/os.lisp index e344c20..03450bf 100644 --- a/src/property/os.lisp +++ b/src/property/os.lisp @@ -45,6 +45,9 @@ Used in property :HOSTATTRS subroutines." (defclass debian-stable (debian) ()) (defprop debian-stable :posix (suite architecture) + (:desc + (declare (ignore architecture)) + #?{Host is Debian "${suite}"}) (:hostattrs (push-hostattrs :os (make-instance 'debian-stable @@ -54,6 +57,9 @@ Used in property :HOSTATTRS subroutines." ((suite :initform "testing"))) (defprop debian-testing :posix (architecture) + (:desc + (declare (ignore architecture)) + "Host is Debian testing") (:hostattrs (push-hostattrs :os (make-instance 'debian-testing @@ -63,6 +69,9 @@ Used in property :HOSTATTRS subroutines." ((suite :initform "unstable"))) (defprop debian-unstable :posix (architecture) + (:desc + (declare (ignore architecture)) + "Host is Debian unstable") (:hostattrs (push-hostattrs :os (make-instance 'debian-unstable |