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

[mhenoch at common-lisp.net]

Author: mhenoch
Date: Sun Oct 22 08:51:15 2006
New Revision: 61

Modified:
   cl-darcs/trunk/write-patch.lisp
Log:
Add WRITE-PATCH method for MERGER-PATCH


Modified: cl-darcs/trunk/write-patch.lisp
==============================================================================
--- cl-darcs/trunk/write-patch.lisp	(original)
+++ cl-darcs/trunk/write-patch.lisp	Sun Oct 22 08:51:15 2006
@@ -150,3 +150,12 @@
 		    (patch-move-to patch))) stream)
   (write-byte 10 stream))
 
+(defmethod write-patch ((patch merger-patch) stream)
+  (write-as-bytes "merger " stream)
+  (write-as-bytes (merger-version patch) stream)
+  (write-as-bytes " (" stream)
+  (write-byte 10 stream)
+  (write-patch (merger-first patch) stream)
+  (write-patch (merger-second patch) stream)
+  (write-as-byte #\) stream)
+  (write-byte 10 stream))