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/host.lisp | 8 +------- 1 file changed, 1 insertion(+), 7 deletions(-) (limited to 'src/host.lisp') diff --git a/src/host.lisp b/src/host.lisp index f03c662..5c8b6e9 100644 --- a/src/host.lisp +++ b/src/host.lisp @@ -103,13 +103,7 @@ Called by properties which set up such subhosts, like CHROOT:OS-BOOTSTRAPPED." :propspec propspec :hostattrs (list* :parent-hostattrs (hostattrs *host*) hostattrs))) -(defmethod print-object ((host host) stream) - (format stream "#.~S" `(make-instance - ',(type-of host) - :hostattrs ',(slot-value host 'hostattrs) - :propspec ,(slot-value host 'propspec) - :deploy ',(slot-value host 'default-deployment))) - host) +(define-print-object-for-structlike host) (defmethod union-propspec-into-host ((host unpreprocessed-host) (propspec propspec)) -- cgit v1.2.3