[cxml-cvs] CVS cxml/xml

[dlichteblau]

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