[cxml-cvs] CVS update: cxml/dom/dom-impl.lisp

[David Lichteblau]

Update of /project/cxml/cvsroot/cxml/dom
In directory common-lisp.net:/tmp/cvs-serv10584/dom

Modified Files:
	dom-impl.lisp 
Log Message:
dom murmel dom

Date: Sun Dec  4 23:57:30 2005
Author: dlichteblau

Index: cxml/dom/dom-impl.lisp
diff -u cxml/dom/dom-impl.lisp:1.14 cxml/dom/dom-impl.lisp:1.15
--- cxml/dom/dom-impl.lisp:1.14	Sun Dec  4 23:25:35 2005
+++ cxml/dom/dom-impl.lisp	Sun Dec  4 23:57:30 2005
@@ -219,6 +219,7 @@
 
 (defmethod dom:create-document-type
     ((factory (eql 'implementation)) name publicid systemid)
+  (safe-split-qname name #"")
   (make-instance 'dom-impl::document-type
     :name name
     :notations (make-instance 'dom-impl::named-node-map