From f277b978f17c08784538b20387d4494a13787703 Mon Sep 17 00:00:00 2001
From: David Lichteblau <david@lichteblau.com>
Date: Thu, 23 Oct 2008 13:38:26 +0200
Subject: [PATCH] fixed ystream newline handling, thanks to Ivan Shvedunov

---
 ystream.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ystream.lisp b/ystream.lisp
index 6ad3e0b..6305055 100644
--- a/ystream.lisp
+++ b/ystream.lisp
@@ -88,7 +88,7 @@
     (setf (elt in (ystream-in-ptr ystream)) rune)
     (incf (ystream-in-ptr ystream))
     (setf (ystream-column ystream)
-	  (if (eql rune #/U+0010) 0 (1+ (ystream-column ystream))))
+	  (if (eql rune #/U+000A) 0 (1+ (ystream-column ystream))))
     rune))
 
 ;; Writes a rod to the buffer.  If a rune in the rod not encodable, an error