Update of /project/cxml/cvsroot/cxml/xml In directory clnet:/tmp/cvs-serv27988
Modified Files: xml-parse.lisp Log Message: set up a stream name in parse-rod for circularity detection (thanks to Donavon Keithley for the report)
--- /project/cxml/cvsroot/cxml/xml/xml-parse.lisp 2006/03/20 12:42:26 1.60 +++ /project/cxml/cvsroot/cxml/xml/xml-parse.lisp 2006/05/18 10:08:36 1.61 @@ -3027,7 +3027,13 @@ (dtd *ctx*)))))
(defun parse-rod (string handler &rest args) - (apply #'parse-xstream (string->xstream string) handler args)) + (let ((xstream (string->xstream string))) + (setf (xstream-name xstream) + (make-stream-name + :entity-name "main document" + :entity-kind :main + :uri nil)) + (apply #'parse-xstream xstream handler args)))
(defun string->xstream (string) (make-rod-xstream (string-rod string)))