From c687d10681cb4455e27dceec68aa5379305ec76c Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Mon, 7 Jun 2021 10:03:25 -0700 Subject: factor out LAMBDA-IGNORING-ARGS Signed-off-by: Sean Whitton --- src/property/disk.lisp | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'src/property/disk.lisp') diff --git a/src/property/disk.lisp b/src/property/disk.lisp index c3db619..bcbe89f 100644 --- a/src/property/disk.lisp +++ b/src/property/disk.lisp @@ -751,13 +751,11 @@ must not be modified." (volumes propapp &key (mount-below nil mount-below-supplied-p)) (:retprop :type (propapptype propapp) - :hostattrs (lambda (&rest ignore) - (declare (ignore ignore)) + :hostattrs (lambda-ignoring-args (require-volumes-data volumes) (propappattrs propapp)) :apply - (lambda (&rest ignore) - (declare (ignore ignore)) + (lambda-ignoring-args (with-connattrs (:opened-volumes (apply #'open-volumes-and-contents `(,volumes ,@(and mount-below-supplied-p -- cgit v1.2.3