diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-19 13:15:54 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-19 18:56:59 -0700 |
| commit | b8fe83f3f6b2f89d60b26201dd3e3ffdc7210bc1 (patch) | |
| tree | ca6138ade7a4a7743ad39c37e38fec8e48b986e9 /src/property.lisp | |
| parent | a21b062e12e1133b5ac2faa978c08ce840ef5e02 (diff) | |
| download | consfigurator-b8fe83f3f6b2f89d60b26201dd3e3ffdc7210bc1.tar.gz | |
add a way for chroots, containers etc. to get at parent hostattrs
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property.lisp')
| -rw-r--r-- | src/property.lisp | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/property.lisp b/src/property.lisp index 1adebb4..ec73d26 100644 --- a/src/property.lisp +++ b/src/property.lisp @@ -415,6 +415,12 @@ Called by property :HOSTATTRS, :APPLY and :UNAPPLY subroutines." (defun get-hostattrs-car (k) (car (get-hostattrs k))) +(defun get-parent-hostattrs (k) + (getf (get-hostattrs :parent-hostattrs) k)) + +(defun get-parent-hostattrs-car (k) + (car (get-parent-hostattrs k))) + (defun push-hostattrs (k &rest vs) "Push new static informational attributes VS of type KEY. |