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/propspec.lisp | 17 ++--------------- 1 file changed, 2 insertions(+), 15 deletions(-) (limited to 'src/propspec.lisp') diff --git a/src/propspec.lisp b/src/propspec.lisp index 2e401f6..d1b95bd 100644 --- a/src/propspec.lisp +++ b/src/propspec.lisp @@ -208,22 +208,9 @@ systems." :systems systems :propspec propspec) (make-instance 'unpreprocessed-propspec :propspec propspec))) -(defmethod print-object ((propspec unpreprocessed-propspec) stream) - (format stream "#.~S" `(make-instance - 'unpreprocessed-propspec - :systems ',(slot-value propspec 'systems) - :propspec - ',(slot-value propspec 'propspec-expression))) - propspec) +(define-print-object-for-structlike preprocessed-propspec) -(defmethod print-object ((propspec preprocessed-propspec) stream) - (format stream "#.~S" `(make-instance - 'preprocessed-propspec - :systems ',(slot-value propspec 'systems) - :propspec - ',(slot-value propspec - 'preprocessed-propspec-expression))) - propspec) +(define-print-object-for-structlike unpreprocessed-propspec) ;; this could be defined for preprocessed propspecs easily enough but we ;; shouldn't need to append those -- cgit v1.2.3