[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-serv17392/xml

Modified Files:
	xml-parse.lisp 
Log Message:
-xmltest/not-wf/sa/076.xml [not validating:] FAILED:
-  The value NIL is not of type CXML::DTD.
-[
-    Undefined ENTITY foo. ]

Date: Sun Nov 27 14:03:02 2005
Author: dlichteblau

Index: cxml/xml/xml-parse.lisp
diff -u cxml/xml/xml-parse.lisp:1.28 cxml/xml/xml-parse.lisp:1.29
--- cxml/xml/xml-parse.lisp:1.28	Sun Nov 27 13:56:56 2005
+++ cxml/xml/xml-parse.lisp	Sun Nov 27 14:03:01 2005
@@ -888,6 +888,8 @@
             (cons *markup-declaration-external-p* def)))))
 
 (defun get-entity-definition (entity-name kind dtd)
+  (unless dtd
+    (wf-error "entity not defined: ~A" (rod-string entity-name)))
   (destructuring-bind (extp &rest def)
       (gethash entity-name
                (ecase kind