diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-04-20 14:29:40 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-04-20 14:29:40 -0700 |
| commit | facd42a098ed8de8c8883b9ee0002e4b9075c16f (patch) | |
| tree | 1e9669bedb3b16b934bbb636d5eb55ca79177703 /src/property/disk.lisp | |
| parent | fbae12455b49a2ea66a80885ecc77840cb46c5be (diff) | |
| download | consfigurator-facd42a098ed8de8c8883b9ee0002e4b9075c16f.tar.gz | |
drop duplicate DEFGENERIC
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property/disk.lisp')
| -rw-r--r-- | src/property/disk.lisp | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/src/property/disk.lisp b/src/property/disk.lisp index 48fb18e..8124b76 100644 --- a/src/property/disk.lisp +++ b/src/property/disk.lisp @@ -76,10 +76,6 @@ volumes encountered whose type is a subtype of TYPE." (:documentation "Return the minimum size required to accommodate the VOLUME-CONTENTS of VOLUME.")) -(defgeneric volume-contents-minimum-size (volume) - (:documentation - "Calculate the minimum size required to accomodate the contents of this volume.")) - (defmethod volume-contents-minimum-size ((volume volume)) (if (slot-boundp volume 'volume-contents) (reduce #'+ (mapcar #'volume-minimum-size |