From e63c77c113e483f6fe8d76a246497d76358efe3d Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Wed, 2 Jun 2021 16:28:24 -0700 Subject: define VOLUME-CONTENTS-MINIMUM-SIZE for LVM-LOGICAL-VOLUME Signed-off-by: Sean Whitton --- src/property/disk.lisp | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'src/property/disk.lisp') diff --git a/src/property/disk.lisp b/src/property/disk.lisp index 751813a..82da591 100644 --- a/src/property/disk.lisp +++ b/src/property/disk.lisp @@ -474,6 +474,10 @@ We do not specify what logical volumes it contains.")) (defclass-opened-volume activated-lvm-logical-volume (lvm-logical-volume)) +(defmethod volume-contents-minimum-size ((volume lvm-logical-volume)) + "LVs cannot be of zero size." + (max 1 (call-next-method))) + (defmethod open-volume ((volume lvm-logical-volume) (file null)) (with-slots (volume-label lvm-volume-group) volume (mrun "lvchange" "-ay" (strcat lvm-volume-group "/" volume-label)) -- cgit v1.2.3