Update of /project/cxml/cvsroot/cxml/xml In directory common-lisp:/tmp/cvs-serv24111
Modified Files: xml-parse.lisp Log Message: * give simple strings to puri * accept &rest arguments in parse-rod
--- /project/cxml/cvsroot/cxml/xml/xml-parse.lisp 2005/12/29 00:31:36 1.58 +++ /project/cxml/cvsroot/cxml/xml/xml-parse.lisp 2006/01/23 21:45:48 1.59 @@ -2011,7 +2011,7 @@ ;; :FILE and NIL anway. (when (eql (search "file://" str) 0) (setf str (subseq str (length "file://")))) - (puri:parse-uri str)) + (puri:parse-uri (coerce str 'simple-string)))
(defun p/system-literal (input) (let* ((rod (p/id input)) @@ -3026,8 +3026,8 @@ (p/ext-subset zstream) (dtd *ctx*)))))
-(defun parse-rod (string handler) - (parse-xstream (string->xstream string) handler)) +(defun parse-rod (string handler &rest args) + (apply #'parse-xstream (string->xstream string) handler args))
(defun string->xstream (string) (make-rod-xstream (string-rod string)))