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

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))))