[cxml-cvs] CVS update: cxml/xml/recoder.lisp cxml/xml/unparse.lisp

[David Lichteblau]

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))