Commit f2d9273b authored by david's avatar david

Revision: cxml--devel--1.0--patch-4

Archive: david@knowledgetools.de--cxml
Creator: David Lichteblau <david@knowledgetools.de>
Date: Thu Jan  8 22:54:29 CET 2004
Standard-date: 2004-01-08 21:54:29 GMT
New-files: xml/.arch-ids/string-dom.lisp.id
    xml/string-dom.lisp
Modified-files: cxml.asd xml/dom-builder.lisp
    xml/dom-impl.lisp xml/package.lisp
New-patches: david@knowledgetools.de--cxml/cxml--devel--1.0--patch-4
Summary: renamed dom to cdom, added string-dom
Keywords:

  - renamed package dom to cdom
  - use cl-package-aliases to access the package under the name "dom" anyway
  - added string-dom, which wraps around cdom and converts rods to strings
  - fixed import-node in dom-impl
parent ca0456a7
(defpackage :dom-impl (defpackage :dom-impl
(:use :glisp)) (:use :glisp)
(:alias (:cdom :dom)))
(in-package :dom-impl) (in-package :dom-impl)
...@@ -527,7 +528,8 @@ ...@@ -527,7 +528,8 @@
(let ((result (apply #'make-instance class :owner document initargs))) (let ((result (apply #'make-instance class :owner document initargs)))
(when deep (when deep
(dolist (child (dom:child-nodes node)) (dolist (child (dom:child-nodes node))
(dom:append-child result (dom:import-node document child t)))))) (dom:append-child result (dom:import-node document child t))))
result))
(defmethod dom:import-node ((document document) (node attribute) deep) (defmethod dom:import-node ((document document) (node attribute) deep)
(declare (ignore deep)) (declare (ignore deep))
......
...@@ -10,6 +10,7 @@ ...@@ -10,6 +10,7 @@
(:use (:use
:glisp :glisp
:encoding) :encoding)
(:alias (:cdom :dom))
(:export (:export
;; xstreams ;; xstreams
......
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