From 548816cf9a97656e72aa2644c1bd5e5e9ac3d475 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Tue, 8 Jun 2021 14:07:59 -0700 Subject: CHROOT:OS-BOOTSTRAPPED{,-FOR}: make unapplicable Signed-off-by: Sean Whitton --- src/property/chroot.lisp | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'src/property/chroot.lisp') 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. -- cgit v1.2.3