Commit ee14c42d authored by david's avatar david

Revision: cxml--devel--1.0--patch-9

Archive: david@knowledgetools.de--cxml
Creator: David Lichteblau <david@knowledgetools.de>
Date: Fri Jan  9 22:52:09 CET 2004
Standard-date: 2004-01-09 21:52:09 GMT
Modified-files: xml/dom-impl.lisp
New-patches: david@knowledgetools.de--cxml/cxml--devel--1.0--patch-9
Summary: print elements with their tag-name

print elements with their tag-name
parent e466b2b3
......@@ -30,6 +30,10 @@
(attributes :initarg :attributes :reader dom:attributes
:initform (make-instance 'named-node-map))))
(defmethod print-object ((object element) stream)
(print-unreadable-object (object stream :type t :identity t)
(princ (rod-string (dom:tag-name object)) stream)))
(defclass text (character-data)
())
......
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