[armedbear-cvs] r14148 - trunk/abcl/src/org/armedbear/lisp

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Sun Sep  2 11:11:30 2012
New Revision: 14148

Log:
Fix #130: SLIME has extra ^M character in buffer output on Windows.

Note: Verified this symptom still exists in August Quicklisp;
   Solution on our side is probably easiest.

Modified:
   trunk/abcl/src/org/armedbear/lisp/SlimeInputStream.java
   trunk/abcl/src/org/armedbear/lisp/SlimeOutputStream.java

Modified: trunk/abcl/src/org/armedbear/lisp/SlimeInputStream.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/SlimeInputStream.java	Sun Sep  2 04:38:30 2012	(r14147)
+++ trunk/abcl/src/org/armedbear/lisp/SlimeInputStream.java	Sun Sep  2 11:11:30 2012	(r14148)
@@ -50,6 +50,7 @@
         isOutputStream = false;
         isCharacterStream = true;
         isBinaryStream = false;
+        eolStyle = EolStyle.LF;
         this.f = f;
         this.ostream = ostream;
     }

Modified: trunk/abcl/src/org/armedbear/lisp/SlimeOutputStream.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/SlimeOutputStream.java	Sun Sep  2 04:38:30 2012	(r14147)
+++ trunk/abcl/src/org/armedbear/lisp/SlimeOutputStream.java	Sun Sep  2 11:11:30 2012	(r14148)
@@ -50,6 +50,7 @@
         isOutputStream = true;
         isCharacterStream = true;
         isBinaryStream = false;
+        eolStyle = EolStyle.LF;
         setWriter(stringWriter = new StringWriter());
         this.f = f;
     }