From ada9fb8e7b3527d2c2c119a361fb4fb0e1b1b1a2 Mon Sep 17 00:00:00 2001 From: dlichteblau Date: Thu, 18 May 2006 10:08:36 +0000 Subject: [PATCH] set up a stream name in parse-rod for circularity detection (thanks to Donavon Keithley for the report) --- xml/xml-parse.lisp | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/xml/xml-parse.lisp b/xml/xml-parse.lisp index 2d25b0a..91d045c 100644 --- a/xml/xml-parse.lisp +++ b/xml/xml-parse.lisp @@ -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)))