-xmltest/not-wf/sa/076.xml [not validating:] FAILED:

-  The value NIL is not of type CXML::DTD.
-[
-    Undefined ENTITY foo. ]

xml/xml-parse.lisp

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