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/disk.lisp | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'src/property/disk.lisp') 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) -- cgit v1.2.3