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/installer.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/property/installer.lisp') 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