[Cl-darcs-cvs] r30 - cl-darcs/trunk

[mhenoch at common-lisp.net]

Author: mhenoch
Date: Fri Jul 14 19:46:56 2006
New Revision: 30

Modified:
   cl-darcs/trunk/patchinfo.lisp
Log:
Add print-object method for patchinfo structures


Modified: cl-darcs/trunk/patchinfo.lisp
==============================================================================
--- cl-darcs/trunk/patchinfo.lisp	(original)
+++ cl-darcs/trunk/patchinfo.lisp	Fri Jul 14 19:46:56 2006
@@ -116,3 +116,10 @@
     (setf (patchinfo-inverted copy)
 	  (not (patchinfo-inverted copy)))
     copy))
+
+(defmethod print-object ((patchinfo patchinfo) stream)
+  (if *print-readably*
+      (call-next-method)
+      (format stream "~A ~A (~A)" (patchinfo-date patchinfo)
+	      (patchinfo-name patchinfo)
+	      (patchinfo-author patchinfo))))