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/host.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/host.lisp')
-rw-r--r-- | src/host.lisp | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/host.lisp b/src/host.lisp index cbc756d..f4f9ec2 100644 --- a/src/host.lisp +++ b/src/host.lisp @@ -70,6 +70,14 @@ values higher up the call stack.")) (make-instance 'unpreprocessed-host :hostattrs hostattrs :propspec propspec)) +(defun make-child-host (&key hostattrs propspec) + "Make a host object to represent a chroot, container or the like. +Called by properties which set up such subhosts, like CHROOT:OS-BOOTSTRAPPED." + (make-instance + 'unpreprocessed-host + :propspec propspec + :hostattrs (list* :parent-hostattrs (hostattrs *host*) hostattrs))) + (defmethod print-object ((host host) stream) (format stream "#.~S" `(make-instance ',(type-of host) |