diff options
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 |