From eafc7f5367698872e79918c225a605ff2e320520 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Mon, 31 May 2021 13:21:13 -0700 Subject: DISK:CREATE-VOLUME for LVM volume groups: pass -Wn to lvcreate(8) Signed-off-by: Sean Whitton --- src/property/disk.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/property/disk.lisp') diff --git a/src/property/disk.lisp b/src/property/disk.lisp index cb45e9c..b6d306e 100644 --- a/src/property/disk.lisp +++ b/src/property/disk.lisp @@ -447,7 +447,7 @@ DISK:HAS-VOLUMES, rather than as the VOLUME-CONTENTS of another volume.")) (unless (member volume-label (all-vgs) :test #'string=) (failed-change "Looks like no PVs for VG ~A?" volume-label)) (dolist (lv volume-contents) - (mrun :inform "lvcreate" + (mrun :inform "lvcreate" "-Wn" (if (and (slot-boundp lv 'volume-size) (eql (volume-size lv) :remaining)) '("-l" "100%FREE") -- cgit v1.2.3