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

utf8-dom

Browse Source
This commit is contained in:
dlichteblau
2005-12-27 00:21:27 +00:00
parent bed71d9dbc
commit 42987f5dba
12 changed files with 224 additions and 114 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
dom/dom-sax.lisp
View File

@ -6,7 +6,7 @@
;;;; Author: David Lichteblau <david@lichteblau.com>
;;;; Copyright (c) 2004 knowledgeTools Int. GmbH
(in-package :dom-impl)
(in-package :cxml)
(defun dom:map-document
(handler document
@ -23,9 +23,9 @@
(dom:system-id doctype))
(ecase include-doctype
(:full-internal-subset
(when (slot-boundp doctype 'internal-subset)
(when (slot-boundp doctype 'dom::%internal-subset)
(sax:start-internal-subset handler)
(dolist (def (internal-subset doctype))
(dolist (def (dom::%internal-subset doctype))
(apply (car def) handler (cdr def)))
(sax:end-internal-subset handler)))
(:canonical-notations