From 5217bc067885bd77ea93d5db1fb36d7cf94949c7 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Thu, 8 Jul 2021 10:50:56 -0700 Subject: DISK::WITH-OPEN-VOLUMES: drop unneeded use of ONCE-ONLY Was causing a warning in the case where MOUNT-BELOW was not supplied. Signed-off-by: Sean Whitton --- src/property/disk.lisp | 17 ++++++++--------- 1 file changed, 8 insertions(+), 9 deletions(-) (limited to 'src/property/disk.lisp') diff --git a/src/property/disk.lisp b/src/property/disk.lisp index b66bae7..c2d39f9 100644 --- a/src/property/disk.lisp +++ b/src/property/disk.lisp @@ -721,15 +721,14 @@ MOUNT-BELOW specifies a pathname to prefix to mount points when opening FILESYSTEM volumes. OPENED-VOLUMES specifies a symbol to which a list of all volumes that were opened will be bound, which can be used to do things like populate /etc/fstab and /etc/crypttab. Do not modify this list." - (once-only (mount-below) - (let ((opened-volumes (or opened-volumes (gensym)))) - `(let ((,opened-volumes (open-volumes-and-contents - ,volumes - ,@(and mount-below-supplied-p - `(:mount-below ,mount-below))))) - (unwind-protect (progn ,@forms) - (mrun "sync") - (mapc #'close-volume ,opened-volumes)))))) + (let ((opened-volumes (or opened-volumes (gensym)))) + `(let ((,opened-volumes (open-volumes-and-contents + ,volumes + ,@(and mount-below-supplied-p + `(:mount-below ,mount-below))))) + (unwind-protect (progn ,@forms) + (mrun "sync") + (mapc #'close-volume ,opened-volumes))))) (defmacro with-these-open-volumes ((volumes &key (mount-below nil mount-below-supplied-p)) &body propapps) -- cgit v1.2.3