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
(:use :glisp))
(:use :glisp)
(:alias (:cdom :dom)))
(in-package :dom-impl)
......@@ -527,7 +528,8 @@
(let ((result (apply #'make-instance class :owner document initargs)))
(when deep
(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)
(declare (ignore deep))
......
......@@ -10,6 +10,7 @@
(:use
:glisp
:encoding)
(:alias (:cdom :dom))
(:export
;; 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