Update of /project/cxml/cvsroot/cxml/xml In directory common-lisp.net:/tmp/cvs-serv11709/xml Modified Files: recoder.lisp unparse.lisp Log Message: utf8-dom Date: Tue Dec 27 01:21:45 2005 Author: dlichteblau Index: cxml/xml/recoder.lisp diff -u cxml/xml/recoder.lisp:1.2 cxml/xml/recoder.lisp:1.3 --- cxml/xml/recoder.lisp:1.2 Mon Nov 28 23:33:47 2005 +++ cxml/xml/recoder.lisp Tue Dec 27 01:21:38 2005 @@ -12,7 +12,7 @@ ((recoder :initarg :recoder :accessor recoder) (chained-handler :initarg :chained-handler :accessor chained-handler))) -(defun make-recoder (chained-handler &optional (recoder-fn #'rod-string)) +(defun make-recoder (chained-handler recoder-fn) (make-instance 'recoder :recoder recoder-fn :chained-handler chained-handler)) Index: cxml/xml/unparse.lisp diff -u cxml/xml/unparse.lisp:1.4 cxml/xml/unparse.lisp:1.5 --- cxml/xml/unparse.lisp:1.4 Sun Dec 4 19:44:06 2005 +++ cxml/xml/unparse.lisp Tue Dec 27 01:21:41 2005 @@ -639,6 +639,6 @@ (let* ((bytes (map '(vector (unsigned-byte 8)) #'char-code str)) (buffer (make-array (length bytes) :element-type '(unsigned-byte 16))) (n (decode-sequence :utf-8 bytes 0 (length bytes) buffer 0 0 nil)) - (result (make-array n :element-type 'rod))) + (result (make-array n :element-type 'rune))) (map-into result #'code-rune buffer) result))