diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-28 16:38:37 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-28 16:38:37 -0700 |
commit | fe9117e0bcaf65db50930e6320ff7012cee541e3 (patch) | |
tree | 130059b69c851155c1220e88a2e51ef07430955c | |
parent | bcd8605fcdeda28d4651c92029a8a5143f8d05aa (diff) | |
download | consfigurator-fe9117e0bcaf65db50930e6320ff7012cee541e3.tar.gz |
add some accessors
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
-rw-r--r-- | src/host.lisp | 2 | ||||
-rw-r--r-- | src/propspec.lisp | 2 |
2 files changed, 4 insertions, 0 deletions
diff --git a/src/host.lisp b/src/host.lisp index a8c3b72..e55f601 100644 --- a/src/host.lisp +++ b/src/host.lisp @@ -22,9 +22,11 @@ (defclass host () ((hostattrs :initarg :attrs + :reader hostattrs :documentation "Plist of the host's static informational attributes.") (propspec :initarg :props + :reader host-propspec :documentation "Property application specification of the properties to be applied to the host."))) diff --git a/src/propspec.lisp b/src/propspec.lisp index 1275d40..f2ca2e9 100644 --- a/src/propspec.lisp +++ b/src/propspec.lisp @@ -44,10 +44,12 @@ Consfigurator properties code in this symbol's package applies to hosts.")))) (defclass propspec () ((systems :initarg :systems + :reader propspec-systems :documentation "List of names of systems, the loading of all of which is sufficient to deploy this propspec.") (applications :initarg :props + :reader propspec-props :documentation "Ordered list of property applications. The base case valid entry is of the form (PROPERTY . ARGS) where PROPERTY is a symbol naming a property (typically as defined by DEFPROP) and ARGS is a |