Commit f6b3abf7 authored by david's avatar david

Revision: cxml--devel--1.0--patch-11

Archive: david@knowledgetools.de--cxml
Creator: David Lichteblau <david@knowledgetools.de>
Date: Fri Jan  9 23:11:05 CET 2004
Standard-date: 2004-01-09 22:11:05 GMT
Modified-files: xml/dom-impl.lisp
New-patches: david@knowledgetools.de--cxml/cxml--devel--1.0--patch-11
Summary: print attributes with name and value

print attributes with name and value
parent 0902676f
......@@ -25,6 +25,12 @@
(value :initarg :value :reader dom:value)
(specified-p :initarg :specified-p :reader dom:specified)))
(defmethod print-object ((object attribute) stream)
(print-unreadable-object (object stream :type t :identity t)
(format stream "~A=~S"
(rod-string (dom:name object))
(rod-string (dom:value object)))))
(defclass element (node)
((tag-name :initarg :tag-name :reader dom:tag-name)
(attributes :initarg :attributes :reader dom:attributes
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment