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

[David Lichteblau]

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

Modified Files:
	xml-parse.lisp 
Log Message:
unparsed entities duerfen nicht referenziert werden

Date: Sun Nov 27 17:22:33 2005
Author: dlichteblau

Index: cxml/xml/xml-parse.lisp
diff -u cxml/xml/xml-parse.lisp:1.30 cxml/xml/xml-parse.lisp:1.31
--- cxml/xml/xml-parse.lisp:1.30	Sun Nov 27 17:09:19 2005
+++ cxml/xml/xml-parse.lisp	Sun Nov 27 17:22:33 2005
@@ -921,6 +921,9 @@
         (external-entdef
          (when internalp
 	   (wf-error "entity not internal: ~A" (rod-string entity-name)))
+         (when (entdef-ndata def)
+	   (wf-error "reference to unparsed entity: ~A"
+		     (rod-string entity-name)))
          (setf r (xstream-open-extid (extid-using-catalog (entdef-extid def))))
          (setf (stream-name-entity-name (xstream-name r)) entity-name
                (stream-name-entity-kind (xstream-name r)) kind)))