diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-04-06 15:42:09 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-04-06 15:42:09 -0700 |
commit | 8ee6559fcf67d64299d8e4a578cf0ffe5289fe8f (patch) | |
tree | 6beb359f11612047570f30b3d33bac2eaa50d455 /src/property/chroot.lisp | |
parent | deb8cb652cb9f41ee19312ec25582478c0d08311 (diff) | |
download | consfigurator-8ee6559fcf67d64299d8e4a578cf0ffe5289fe8f.tar.gz |
factor out and export CHROOT:MAKE-CHILD-HOST-FOR-CHROOT-DEPLOY
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property/chroot.lisp')
-rw-r--r-- | src/property/chroot.lisp | 20 |
1 files changed, 12 insertions, 8 deletions
diff --git a/src/property/chroot.lisp b/src/property/chroot.lisp index 23ee3f1..c516c0d 100644 --- a/src/property/chroot.lisp +++ b/src/property/chroot.lisp @@ -58,16 +58,20 @@ `(os:host-etypecase ,host (debian (%debootstrapped ,root ,host ,@options))))) +(defun make-child-host-for-chroot-deploy (propspec) + "Return a preprocessed child host with properties as specified by PROPSPEC, +additionally set up such that deploying the host will not start up any +services." + (preprocess-host + (make-child-host + :propspec (make-propspec + :systems (propspec-systems propspec) + :propspec `(service:without-starting-services + ,(propspec-props propspec)))))) + (defproplist os-bootstrapped :lisp (options root properties - &aux (host - (preprocess-host - (make-child-host - :propspec - (make-propspec - :systems (propspec-systems properties) - :propspec `(service:without-starting-services - ,(propspec-props properties))))))) + &aux (host (make-child-host-for-chroot-deploy properties))) "Bootstrap an OS into ROOT and apply PROPERTIES. OPTIONS is a plist of values to pass to the OS-specific bootstrapping property." (:desc (declare (ignore options properties)) |