unparsed entities duerfen nicht referenziert werden

2005-11-27 16:22:32 +00:00
parent 2010bc4113
commit a31a91fc54
2 changed files with 6 additions and 12 deletions
--- a/xml/xml-parse.lisp
+++ b/xml/xml-parse.lisp
@ -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)))