- Define CXML:ATTRIBUTE as a generic function, and a method for integers.
- Define /UTF8 sinks even on Unicode-aware implementations for backward- compatibility. (Undocumented feature.)
This commit is contained in:
@ -72,8 +72,13 @@
|
|||||||
#:make-octet-stream-ystream
|
#:make-octet-stream-ystream
|
||||||
#:make-rod-ystream
|
#:make-rod-ystream
|
||||||
#+rune-is-character #:make-character-stream-ystream
|
#+rune-is-character #:make-character-stream-ystream
|
||||||
#+rune-is-integer #:make-string-ystream/utf8
|
;; These don't make too much sense on Unicode-enabled,
|
||||||
#+rune-is-integer #:make-character-stream-ystream/utf8
|
;; implementations but for those applications using them anyway,
|
||||||
|
;; I have commented out the reader conditionals now:
|
||||||
|
;; #+rune-is-integer
|
||||||
|
#:make-string-ystream/utf8
|
||||||
|
;; #+rune-is-integer
|
||||||
|
#:make-character-stream-ystream/utf8
|
||||||
#:runes-to-utf8/adjustable-string))
|
#:runes-to-utf8/adjustable-string))
|
||||||
|
|
||||||
(defpackage :utf8-runes
|
(defpackage :utf8-runes
|
||||||
|
|||||||
@ -222,7 +222,7 @@
|
|||||||
|
|
||||||
;;;; CHARACTER-STREAM-YSTREAM/UTF8
|
;;;; CHARACTER-STREAM-YSTREAM/UTF8
|
||||||
|
|
||||||
#+rune-is-integer
|
;; #+rune-is-integer
|
||||||
(progn
|
(progn
|
||||||
(defstruct (character-stream-ystream/utf8
|
(defstruct (character-stream-ystream/utf8
|
||||||
(:constructor make-character-stream-ystream/utf8 (os-stream))
|
(:constructor make-character-stream-ystream/utf8 (os-stream))
|
||||||
@ -239,7 +239,7 @@
|
|||||||
|
|
||||||
;;;; STRING-YSTREAM/UTF8
|
;;;; STRING-YSTREAM/UTF8
|
||||||
|
|
||||||
#+rune-is-integer
|
;; #+rune-is-integer
|
||||||
(progn
|
(progn
|
||||||
(defstruct (string-ystream/utf8
|
(defstruct (string-ystream/utf8
|
||||||
(:include character-stream-ystream/utf8
|
(:include character-stream-ystream/utf8
|
||||||
|
|||||||
Reference in New Issue
Block a user