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/os.lisp | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) (limited to 'src/property/os.lisp') diff --git a/src/property/os.lisp b/src/property/os.lisp index aceb24e..42d0c5c 100644 --- a/src/property/os.lisp +++ b/src/property/os.lisp @@ -35,11 +35,7 @@ :reader debian-suite :initform (error "Must provide suite")))) -(defmethod print-object ((os debian) stream) - (format stream "#.~S" `(make-instance ',(type-of os) - :arch ,(linux-architecture os) - :suite ,(debian-suite os))) - os) +(define-print-object-for-structlike debian) (defclass debian-stable (debian) ()) -- cgit v1.2.3