From 8ee6559fcf67d64299d8e4a578cf0ffe5289fe8f Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Tue, 6 Apr 2021 15:42:09 -0700 Subject: factor out and export CHROOT:MAKE-CHILD-HOST-FOR-CHROOT-DEPLOY Signed-off-by: Sean Whitton --- src/property/chroot.lisp | 20 ++++++++++++-------- 1 file changed, 12 insertions(+), 8 deletions(-) (limited to 'src/property/chroot.lisp') 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)) -- cgit v1.2.3