[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-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)