OSCL/closure-common
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fixed ystream newline handling, thanks to Ivan Shvedunov

Browse Source
This commit is contained in:
David Lichteblau
2008-10-23 13:38:26 +02:00
committed by David Lichteblau
parent 469511713a
commit f277b978f1
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
ystream.lisp
View File

@ -88,7 +88,7 @@
(setf (elt in (ystream-in-ptr ystream)) rune) (setf (elt in (ystream-in-ptr ystream)) rune)
(incf (ystream-in-ptr ystream)) (incf (ystream-in-ptr ystream))
(setf (ystream-column 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)) rune))
;; Writes a rod to the buffer. If a rune in the rod not encodable, an error ;; Writes a rod to the buffer. If a rune in the rod not encodable, an error