diff options
-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 |