rename DEFINE-PRINT-OBJECT-FOR-STRUCTLIKE & REINIT-STRUCTLIKE

Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>

3 files changed, 4 insertions, 4 deletions

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)
diff --git a/src/property/lets-encrypt.lisp b/src/property/lets-encrypt.lisp
index 4ac82a3..1e90248 100644
--- a/src/property/lets-encrypt.lisp
+++ b/src/property/lets-encrypt.lisp
@@ -32,7 +32,7 @@ Let's Encrypt client.  Supply an e-mail address so that Let's Encrypt can
 contact you for things like certificate expiry, planned outage notifications
 etc."))
 
-(define-print-object-for-structlike agree-tos)
+(define-simple-print-object agree-tos)
 
 (defmacro agree-tos (&key (email-address nil email-address-supplied-p))
   `(make-instance 'agree-tos ,@(and email-address-supplied-p
diff --git a/src/property/os.lisp b/src/property/os.lisp
index e9a9d8e..c4da923 100644
--- a/src/property/os.lisp
+++ b/src/property/os.lisp
@@ -32,7 +32,7 @@
   (:desc "Host kernel is Linux")
   (:hostattrs (push-hostattrs :os (make-instance 'linux :arch architecture))))
 
-(define-print-object-for-structlike linux)
+(define-simple-print-object linux)
 
 (defclass debianlike (linux) ())
 
@@ -41,7 +41,7 @@
           :reader debian-suite
           :initform (error "Must provide suite"))))
 
-(define-print-object-for-structlike debian)
+(define-simple-print-object debian)
 
 (defclass debian-stable (debian) ())