OSCL/CXML
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:57 +00:00
parent b0615afdd9
commit 3e4d382940
3 changed files with 811 additions and 811 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1614
DOMTEST
View File

File diff suppressed because it is too large Load Diff

6
runes/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)))

2
xml/unparse.lisp
View File

@ -108,7 +108,7 @@
(define-maker make-rod-sink make-rod-ystream) (define-maker make-rod-sink make-rod-ystream)
#+rune-is-character #+rune-is-character
(define-maker make-character-stream-sink make-character-ystream stream) (define-maker make-character-stream-sink make-character-stream-ystream stream)
#-rune-is-character #-rune-is-character
(define-maker make-string-sink/utf8 make-string-ystream/utf8) (define-maker make-string-sink/utf8 make-string-ystream/utf8)