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

[mhenoch at common-lisp.net]

Author: mhenoch
Date: Fri Oct  6 15:50:11 2006
New Revision: 49

Modified:
   cl-darcs/trunk/write-patch.lisp
Log:
Write newline after { when writing composite patches


Modified: cl-darcs/trunk/write-patch.lisp
==============================================================================
--- cl-darcs/trunk/write-patch.lisp	(original)
+++ cl-darcs/trunk/write-patch.lisp	Fri Oct  6 15:50:11 2006
@@ -43,6 +43,7 @@
 
 (defmethod write-patch ((patch composite-patch) stream)
   (write-as-byte #\{ stream)
+  (write-byte 10 stream)
   (dolist (part (patches patch))
     (write-patch part stream))
   (write-as-byte #\} stream)