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

(setf dom:prefix) korrigiert

Browse Source
This commit is contained in:
dlichteblau
2005-12-04 20:46:28 +00:00
parent 9c92b2ba37
commit 8223cd02d4
2 changed files with 10 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
dom/dom-impl.lisp
View File

@ -39,10 +39,15 @@
(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)
(dtd :initform nil :reader dtd)