rename connattr :OPENED-VOLUMES -> DISK:OPENED-VOLUMES

Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>

4 files changed, 9 insertions, 9 deletions

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) "/")