[rfc2388-cvs] CVS rfc2388

[jdzerins]

Update of /project/rfc2388/cvsroot/rfc2388
In directory cl-net:/tmp/cvs-serv13304

Modified Files:
	rfc2388.lisp 
Log Message:
Specify output file external-format for ClosureCL


--- /project/rfc2388/cvsroot/rfc2388/rfc2388.lisp	2010/06/29 10:49:02	1.12
+++ /project/rfc2388/cvsroot/rfc2388/rfc2388.lisp	2010/07/19 07:25:05	1.13
@@ -437,11 +437,13 @@
                                                  :direction :output
                                                  ;; external format for faithful I/O
                                                  ;; see <http://cl-cookbook.sourceforge.net/io.html#faith>
-                                                 #+(or :sbcl :lispworks :allegro)
+                                                 #+(or :sbcl :lispworks :allegro :openmcl)
                                                  :external-format
                                                  #+sbcl :latin-1
                                                  #+:lispworks '(:latin-1 :eol-style :lf)
-                                                 #+:allegro (excl:crlf-base-ef :latin1))
+                                                 #+:allegro (excl:crlf-base-ef :latin1)
+                                                 #+:openmcl '(:character-encoding :iso-8859-1
+                                                              :line-termination :unix))
                          (read-until-next-boundary input boundary nil out-file))
                      (declare (ignore text))
                      (when (and (stringp file-name)