[bknr-cvs] r2032 - branches/xml-class-rework/thirdparty/cl-qprint
bknr at bknr.net
bknr at bknr.net
Mon Oct 23 05:11:43 UTC 2006
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))
More information about the Bknr-cvs
mailing list