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

Modified Files: dom-impl.lisp Log Message: (setf dom:prefix) korrigiert

Date: Sun Dec 4 21:46:29 2005 Author: dlichteblau

Index: cxml/dom/dom-impl.lisp diff -u cxml/dom/dom-impl.lisp:1.6 cxml/dom/dom-impl.lisp:1.7 --- cxml/dom/dom-impl.lisp:1.6 Sun Dec 4 21:35:15 2005 +++ cxml/dom/dom-impl.lisp Sun Dec 4 21:46:29 2005 @@ -39,9 +39,14 @@ (defmethod dom:namespace-uri ((node node)) nil)

(defclass namespace-mixin () - ((prefix :initarg :prefix :accessor dom:prefix) + ((prefix :initarg :prefix :reader dom:prefix) (local-name :initarg :local-name :reader dom:local-name) (namespace-uri :initarg :namespace-uri :reader dom:namespace-uri))) + +(defmethod (setf dom:prefix) (newval (node namespace-mixin)) + (assert-writeable node) + (safe-split-qname (concatenate 'rod newval #":foo") (dom:namespace-uri node)) + (setf (slot-value node 'prefix) newval))

(defclass document (node) ((doc-type :initarg :doc-type :reader dom:doctype)