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