[bknr-cvs] r2032 - branches/xml-class-rework/thirdparty/cl-qprint

[bknr at bknr.net]

Author: hhubner
Date: 2006-10-23 01:11:42 -0400 (Mon, 23 Oct 2006)
New Revision: 2032

Modified:
   branches/xml-class-rework/thirdparty/cl-qprint/base.lisp
Log:
Properly generate crlf


Modified: branches/xml-class-rework/thirdparty/cl-qprint/base.lisp
===================================================================
--- branches/xml-class-rework/thirdparty/cl-qprint/base.lisp	2006-10-23 05:00:44 UTC (rev 2031)
+++ branches/xml-class-rework/thirdparty/cl-qprint/base.lisp	2006-10-23 05:11:42 UTC (rev 2032)
@@ -102,7 +102,7 @@
 	;; Ensure newlines are CR-LF
 	((char= c #\newline)
 	 (if encode-newlines
-	   (format out-stream "=0A=0D")
+	   (format out-stream "=0D=0A")
 	   (cr-lf out-stream))
 	 (setf last-line-break position))