From f5eac9a5df47008debef2a4124b7877dd6adb101 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sat, 23 Jul 2022 15:19:26 -0700 Subject: INSTALLER:CHROOT-INSTALLED-TO-VOLUMES-FOR: add LEAVE-OPEN parameter Signed-off-by: Sean Whitton --- src/property/installer.lisp | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/src/property/installer.lisp b/src/property/installer.lisp index 175e31e..b70e2a1 100644 --- a/src/property/installer.lisp +++ b/src/property/installer.lisp @@ -89,10 +89,13 @@ BOOTLOADER-TYPE to VOLUME.")) (strcat (unix-namestring chroot) "/") (strcat (unix-namestring target) "/")))) -(defpropspec chroot-installed-to-volumes-for :lisp (host chroot volumes) +(defpropspec chroot-installed-to-volumes-for :lisp + (host chroot volumes &key leave-open) "Where CHROOT contains the root filesystem of HOST and VOLUMES is a list of volumes, recursively open the volumes and rsync in the contents of CHROOT. -Also update the fstab and crypttab, and try to install bootloader(s)." +Also update the fstab and crypttab, and try to install bootloader(s). + +LEAVE-OPEN is passed on to DISK:WITH-OPENED-VOLUMES, which see." (:desc #?"${chroot} installed to volumes") (let ((target (ensure-directory-pathname @@ -100,7 +103,8 @@ Also update the fstab and crypttab, and try to install bootloader(s)." (drop-trailing-slash (unix-namestring (ensure-directory-pathname chroot))) ".target")))) - `(with-opened-volumes (,volumes :mount-below ,target) + `(with-opened-volumes + (,volumes :mount-below ,target :leave-open ,leave-open) (%update-target-from-chroot ,chroot ,target) (chroot:deploys-these ,target ,host -- cgit v1.2.3