define PRINT-OBJECT methods sufficient to readably print *HOST*

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

1 files changed, 7 insertions, 0 deletions

diff --git a/src/propspec.lisp b/src/propspec.lisp
index 59e7cea..b46b6b5 100644
--- a/src/propspec.lisp
+++ b/src/propspec.lisp
@@ -77,6 +77,13 @@ systems, resolve unapply, onchange etc., and then look in the value cell of
 each PROPERTY to find a property, and pass each of ARGS to the function in the
 property's apply slot."))
 
+(defmethod print-object ((propspec propspec) stream)
+  (format stream "~S" `(make-instance
+			'propspec
+			:systems ',(slot-value propspec 'systems)
+			:props ',(slot-value propspec 'applications)))
+  propspec)
+
 ;; The following five functions, should be everything we need to do with
 ;; propspecs, so all knowledge of the possible combinator symbols should be
 ;; confined to these four functions -- i.e., if we are to add any combinators,