[cxml-cvs] CVS cxml/xml

[dlichteblau]

Update of /project/cxml/cvsroot/cxml/xml
In directory clnet:/tmp/cvs-serv26838

Modified Files:
	sax-handler.lisp 
Log Message:
new function unparsed-internal-subset


--- /project/cxml/cvsroot/cxml/xml/sax-handler.lisp	2007/03/04 21:04:13	1.7
+++ /project/cxml/cvsroot/cxml/xml/sax-handler.lisp	2007/07/01 17:25:45	1.8
@@ -73,6 +73,7 @@
 	   #:start-dtd
 	   #:end-dtd
 	   #:start-internal-subset
+	   #:unparsed-internal-subset
 	   #:end-internal-subset
            #:unparsed-entity-declaration
            #:external-entity-declaration
@@ -337,6 +338,11 @@
 finished, if present.")
   (:method ((handler t)) nil))
 
+(defgeneric unparsed-internal-subset (handler str)
+  (:documentation "Reports that an internal subset is present, but has not
+been parsed and is available as a string.")
+  (:method ((handler t) str) nil))
+
 (defgeneric unparsed-entity-declaration
     (handler name public-id system-id notation-name)
   (:documentation