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