diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-06-08 14:07:59 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-06-08 14:08:44 -0700 |
commit | 548816cf9a97656e72aa2644c1bd5e5e9ac3d475 (patch) | |
tree | 51d31a4c99e6a059217f3cc1b435667af19f730f /src/property/chroot.lisp | |
parent | 1393bb0305bb80dfd5ebe57268b55e7d0dfa8567 (diff) | |
download | consfigurator-548816cf9a97656e72aa2644c1bd5e5e9ac3d475.tar.gz |
CHROOT:OS-BOOTSTRAPPED{,-FOR}: make unapplicable
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property/chroot.lisp')
-rw-r--r-- | src/property/chroot.lisp | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/property/chroot.lisp b/src/property/chroot.lisp index ee11cbd..e41c888 100644 --- a/src/property/chroot.lisp +++ b/src/property/chroot.lisp @@ -99,9 +99,11 @@ OPTIONS is a plist of values to pass to the OS-specific bootstrapping property." (:desc (declare (ignore options)) #?"Built chroot for ${(get-hostname child-host*)} @ ${root}") - (%os-bootstrapper-installed child-host*) - (%os-bootstrapped options root child-host*) - (consfigurator:deploys `((:chroot :into ,root)) child-host)) + (with-unapply + (%os-bootstrapper-installed child-host*) + (%os-bootstrapped options root child-host*) + (consfigurator:deploys `((:chroot :into ,root)) child-host) + :unapply (mount:unmounted-below-and-removed root))) (defproplist os-bootstrapped :lisp (options root properties) "Bootstrap an OS into ROOT and apply PROPERTIES. |