define & use DEFINE-PRINT-OBJECT-FOR-STRUCTLIKE

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

1 files changed, 2 insertions, 15 deletions

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