From 2b89cfb8645afb249f6cc21fe3ae588dae5210be Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sat, 12 Mar 2022 14:56:34 -0700 Subject: rename DEFINE-PRINT-OBJECT-FOR-STRUCTLIKE & REINIT-STRUCTLIKE Signed-off-by: Sean Whitton --- src/property/disk.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/property/disk.lisp') diff --git a/src/property/disk.lisp b/src/property/disk.lisp index 351ae86..167f1f2 100644 --- a/src/property/disk.lisp +++ b/src/property/disk.lisp @@ -63,7 +63,7 @@ slot bound.")) (:documentation "Something which contains filesystems and/or other volumes.")) -(define-print-object-for-structlike volume) +(define-simple-print-object volume) (defgeneric copy-volume-and-contents (volume &rest initialisations &key &allow-other-keys) -- cgit v1.2.3