diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-21 16:51:55 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-21 17:22:25 -0700 |
commit | 21a058c24aff5e4f800f844a73548a6ed6643a38 (patch) | |
tree | c34e14c3ef07eee156aa82855ba1046c81be2889 /src/property/chroot.lisp | |
parent | 8a1a0c2d03e6eb00be44152c9464fa2527602fd8 (diff) | |
download | consfigurator-21a058c24aff5e4f800f844a73548a6ed6643a38.tar.gz |
simplify SERVICE:NO-SERVICES & add SERVICE:WITHOUT-STARTING-SERVICES
For the purposes of CHROOT:OS-BOOTSTRAPPED, this should be more robust.
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property/chroot.lisp')
-rw-r--r-- | src/property/chroot.lisp | 14 |
1 files changed, 3 insertions, 11 deletions
diff --git a/src/property/chroot.lisp b/src/property/chroot.lisp index e3a6ee3..220d5f9 100644 --- a/src/property/chroot.lisp +++ b/src/property/chroot.lisp @@ -58,7 +58,7 @@ `(os:host-typecase ,host (debian (%debootstrapped ,root ,host ,@options))))) -(defproplist os-bootstrapped :posix +(defproplist os-bootstrapped :lisp (options root properties &aux (host (preprocess-host @@ -66,16 +66,8 @@ :propspec (make-propspec :systems (propspec-systems properties) - ;; Note that this apply-and-unapply approach will not - ;; work as part of a larger propspec because unapplying - ;; SERVICE:NO-SERVICES doesn't remove the :NO-SERVICES - ;; hostattr. It's only okay because we know that the - ;; unapplication is the last property that will be - ;; applied to HOST (though perhaps not to the chroot). - :propspec `(eseqprops - (service:no-services) - ,(propspec-props properties) - (unapply (service:no-services)))))))) + :propspec `(service:without-starting-services + ,(propspec-props 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)) |