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