[cxml-cvs] CVS update: cxml/xml/package.lisp cxml/xml/xml-parse.lisp

[David Lichteblau]

Update of /project/cxml/cvsroot/cxml/xml
In directory common-lisp.net:/tmp/cvs-serv1642/xml

Modified Files:
	package.lisp xml-parse.lisp 
Log Message:
parse-string in parse-rod umbenannt und exportiert

Date: Thu Dec 29 00:18:06 2005
Author: dlichteblau

Index: cxml/xml/package.lisp
diff -u cxml/xml/package.lisp:1.9 cxml/xml/package.lisp:1.10
--- cxml/xml/package.lisp:1.9	Thu Dec 29 00:11:46 2005
+++ cxml/xml/package.lisp	Thu Dec 29 00:18:05 2005
@@ -34,8 +34,7 @@
    
    #:parse-file
    #:parse-stream
-   ;; XXX encoding is mis-handled by parse-string, don't export it
-   ;; #:parse-string
+   #:parse-rod
    #:parse-octets
 
    #:make-octet-vector-sink


Index: cxml/xml/xml-parse.lisp
diff -u cxml/xml/xml-parse.lisp:1.56 cxml/xml/xml-parse.lisp:1.57
--- cxml/xml/xml-parse.lisp:1.56	Tue Dec 27 21:01:19 2005
+++ cxml/xml/xml-parse.lisp	Thu Dec 29 00:18:05 2005
@@ -3025,12 +3025,10 @@
         (p/ext-subset zstream)
         (dtd *ctx*)))))
 
-(defun parse-string (string handler)
-  ;; XXX this function mis-handles encoding
+(defun parse-rod (string handler)
   (parse-xstream (string->xstream string) handler))
 
 (defun string->xstream (string)
-  ;; XXX encoding is mis-handled by this kind of stream
   (make-rod-xstream (string-rod string)))
 
 (defclass octet-input-stream