OSCL/CXML
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

Browse Source 
-  The value NIL is not of type CXML::DTD.
-[
-    Undefined ENTITY foo. ]
This commit is contained in:
dlichteblau
2005-11-27 13:03:01 +00:00
parent ce617349ca
commit 5106ced596
2 changed files with 4 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
XMLCONF
View File

@ -73,10 +73,7 @@ xmltest/not-wf/sa/072.xml [not validating:] not-wf [validating:] invalid
xmltest/not-wf/sa/073.xml [not validating:] not-wf [validating:] invalid xmltest/not-wf/sa/073.xml [not validating:] not-wf [validating:] invalid
xmltest/not-wf/sa/074.xml [not validating:] not-wf [validating:] invalid xmltest/not-wf/sa/074.xml [not validating:] not-wf [validating:] invalid
xmltest/not-wf/sa/075.xml [not validating:] not-wf [validating:] not-wf xmltest/not-wf/sa/075.xml [not validating:] not-wf [validating:] not-wf
xmltest/not-wf/sa/076.xml [not validating:] FAILED: xmltest/not-wf/sa/076.xml [not validating:] not-wf [validating:] not-wf
The value NIL is not of type CXML::DTD.
[
Undefined ENTITY foo. ]
xmltest/not-wf/sa/077.xml [not validating:] not-wf [validating:] not-wf xmltest/not-wf/sa/077.xml [not validating:] not-wf [validating:] not-wf
xmltest/not-wf/sa/078.xml [not validating:] not-wf [validating:] not-wf xmltest/not-wf/sa/078.xml [not validating:] not-wf [validating:] not-wf
xmltest/not-wf/sa/079.xml [not validating:] not-wf [validating:] not-wf xmltest/not-wf/sa/079.xml [not validating:] not-wf [validating:] not-wf
@ -1937,4 +1934,4 @@ ibm/valid/P86/ibm86v01.xml [not validating:] input [validating:] input
ibm/valid/P87/ibm87v01.xml [not validating:] input [validating:] input ibm/valid/P87/ibm87v01.xml [not validating:] input [validating:] input
ibm/valid/P88/ibm88v01.xml [not validating:] input [validating:] input ibm/valid/P88/ibm88v01.xml [not validating:] input [validating:] input
ibm/valid/P89/ibm89v01.xml [not validating:] input [validating:] input ibm/valid/P89/ibm89v01.xml [not validating:] input [validating:] input
31/1786 tests failed; 376 tests were skipped 30/1786 tests failed; 376 tests were skipped

2
xml/xml-parse.lisp
View File

@ -888,6 +888,8 @@
(cons *markup-declaration-external-p* def))))) (cons *markup-declaration-external-p* def)))))
(defun get-entity-definition (entity-name kind dtd) (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) (destructuring-bind (extp &rest def)
(gethash entity-name (gethash entity-name
(ecase kind (ecase kind