diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-04-16 20:23:50 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-04-16 20:35:39 -0700 |
| commit | 28ad2720a8602eb46d496b50da376b869250b22e (patch) | |
| tree | e2b17357c10fd238f9c747df8d8e9bb7e5aca112 /src/property/disk.lisp | |
| parent | b059c44b7ed012c9c1660f22a3fa8db9a966dcf3 (diff) | |
| download | consfigurator-28ad2720a8602eb46d496b50da376b869250b22e.tar.gz | |
define & use DEFINE-PRINT-OBJECT-FOR-STRUCTLIKE
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property/disk.lisp')
| -rw-r--r-- | src/property/disk.lisp | 2 |
1 files changed, 2 insertions, 0 deletions
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.")) |