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