From 28ad2720a8602eb46d496b50da376b869250b22e Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Fri, 16 Apr 2021 20:23:50 -0700 Subject: define & use DEFINE-PRINT-OBJECT-FOR-STRUCTLIKE Signed-off-by: Sean Whitton --- src/property/disk.lisp | 2 ++ 1 file changed, 2 insertions(+) (limited to 'src/property/disk.lisp') diff --git a/src/property/disk.lisp b/src/property/disk.lisp index ecc26c8..7be1c61 100644 --- a/src/property/disk.lisp +++ b/src/property/disk.lisp @@ -58,6 +58,8 @@ plus any metadata (e.g. partition tables), this value will be ignored.")) (:documentation "Something which contains filesystems and/or other volumes.")) +(define-print-object-for-structlike volume) + (defgeneric volume-contents-minimum-size (volume) (:documentation "Return the minimum size required to accommodate the VOLUME-CONTENTS of VOLUME.")) -- cgit v1.2.3