Commit ca0456a7 authored by david's avatar david

Revision: cxml--devel--1.0--patch-7

Archive: david@knowledgetools.de--cxml
Creator: David Lichteblau <david@knowledgetools.de>
Date: Fri Jan  9 18:34:47 CET 2004
Standard-date: 2004-01-09 17:34:47 GMT
Modified-files: xml/string-dom.lisp
New-patches: david@knowledgetools.de--cxml/cxml--devel--1.0--patch-7
Summary: strings->rods in set-attribute, too

strings->rods in set-attribute, too
parent 42accf73
......@@ -6,7 +6,8 @@
(let* ((home-package
(if (member var '(cdom:data cdom:name cdom:value cdom:tag-name
cdom:node-name cdom:node-value
cdom:substring-data cdom:get-attribute))
cdom:substring-data cdom:get-attribute
cdom:set-attribute))
:string-dom
:cdom))
(symbol (intern (symbol-name var) home-package)))
......@@ -33,3 +34,6 @@
(defun string-dom:get-attribute (elt name)
(rod-to-string (cdom:get-attribute elt name)))
(defun string-dom:set-attribute (elt name value)
(cdom:set-attribute elt (glisp:rod name) (glisp:rod value)))
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