From 4d0c10c402aaef7a3c43683e40e33ce59ddcf1f5 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Thu, 28 Apr 2022 15:52:53 -0700 Subject: rename connattr :OPENED-VOLUMES -> DISK:OPENED-VOLUMES Signed-off-by: Sean Whitton --- src/property/crypttab.lisp | 2 +- src/property/disk.lisp | 10 +++++----- src/property/fstab.lisp | 2 +- src/property/installer.lisp | 4 ++-- 4 files changed, 9 insertions(+), 9 deletions(-) (limited to 'src/property') diff --git a/src/property/crypttab.lisp b/src/property/crypttab.lisp index 4229cbf..cd71079 100644 --- a/src/property/crypttab.lisp +++ b/src/property/crypttab.lisp @@ -84,4 +84,4 @@ This is used when building disk images and installing operating systems." (apply #'has-entries (mapcar #'volume-to-entry (mapcan (curry #'subvolumes-of-type 'opened-luks-container) - (get-connattr :opened-volumes)))))) + (get-connattr 'disk:opened-volumes)))))) diff --git a/src/property/disk.lisp b/src/property/disk.lisp index bbca317..3093280 100644 --- a/src/property/disk.lisp +++ b/src/property/disk.lisp @@ -739,9 +739,9 @@ open each of VOLUMES and any contents thereof, apply PROPAPPS, and close all volumes that were opened. MOUNT-BELOW specifies a pathname to prefix to mount points when opening -FILESYSTEM volumes. During the application of PROPAPPS, all :OPENED-VOLUMES -connattrs are replaced with a list of the volumes that were opened; this list -must not be modified." +FILESYSTEM volumes. During the application of PROPAPPS, all +'DISK:OPENED-VOLUMES connattrs are replaced with a list of the volumes that +were opened; this list must not be modified." `(with-opened-volumes* ',volumes ,(if (cdr propapps) `(eseqprops ,@propapps) (car propapps)) @@ -756,13 +756,13 @@ must not be modified." (propapp-attrs propapp)) :apply (lambda-ignoring-args - (with-connattrs (:opened-volumes + (with-connattrs ('opened-volumes (apply #'open-volumes-and-contents `(,volumes ,@(and mount-below-supplied-p `(:mount-below ,mount-below))))) (unwind-protect (apply-propapp propapp) (mrun "sync") - (mapc #'close-volume (get-connattr :opened-volumes))))) + (mapc #'close-volume (get-connattr 'opened-volumes))))) :args (cdr propapp))) (defun create-volumes-and-contents (volumes &optional files) diff --git a/src/property/fstab.lisp b/src/property/fstab.lisp index 7c0a758..7b269e2 100644 --- a/src/property/fstab.lisp +++ b/src/property/fstab.lisp @@ -119,4 +119,4 @@ This is used when building disk images and installing operating systems." (multiple-value-list (multiple-value-mapcan (curry #'subvolumes-of-type 'mounted-filesystem) - (get-connattr :opened-volumes))))))) + (get-connattr 'disk:opened-volumes))))))) diff --git a/src/property/installer.lisp b/src/property/installer.lisp index 1031cde..d3e4311 100644 --- a/src/property/installer.lisp +++ b/src/property/installer.lisp @@ -70,7 +70,7 @@ BOOTLOADER-TYPE to VOLUME.")) :hostattrs (lambda () (mapc #'propapp-attrs propapps)) :apply (lambda () - (mapc #'consfigure (get-propspecs (get-connattr :opened-volumes))) + (mapc #'consfigure (get-propspecs (get-connattr 'disk:opened-volumes))) (mrun "sync")))) @@ -83,7 +83,7 @@ BOOTLOADER-TYPE to VOLUME.")) (run "rsync" "-PSavx" "--delete" (loop for volume in (mapcan (curry #'subvolumes-of-type 'mounted-filesystem) - (get-connattr :opened-volumes)) + (get-connattr 'disk:opened-volumes)) collect (strcat "--exclude=" (unix-namestring (mount-point volume)))) (strcat (unix-namestring chroot) "/") -- cgit v1.2.3