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

sb-unicode backport

Browse Source
This commit is contained in:
dlichteblau
2005-12-29 00:37:59 +00:00
parent 3d47635385
commit 00f773c249
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
ystream.lisp
View File

@ -76,7 +76,7 @@
(when (plusp ptr)
(let* ((in (ystream-in-buffer ystream))
(out (ystream-out-buffer ystream))
(surrogatep (<= #xD800 (elt in (1- ptr)) #xDBFF))
(surrogatep (<= #xD800 (rune-code (elt in (1- ptr))) #xDBFF))
n)
(when surrogatep
(decf ptr))
@ -179,11 +179,11 @@
(:conc-name "YSTREAM-"))
(target-stream nil))
(defmethod flush-ystream ((ystream rod-ystream))
(defmethod flush-ystream ((ystream character-stream-ystream))
(write-string (ystream-in-buffer ystream) (ystream-target-stream ystream))
(setf (ystream-in-ptr ystream) 0))
(defmethod close-ystream ((ystream rod-ystream))
(defmethod close-ystream ((ystream character-stream-ystream))
(ystream-target-stream ystream)))