From f2d9273bcfc3941d9bf6ec4547017b7cd45285d5 Mon Sep 17 00:00:00 2001 From: david Date: Sun, 13 Mar 2005 18:02:11 +0000 Subject: [PATCH] Revision: cxml--devel--1.0--patch-4 Archive: david@knowledgetools.de--cxml Creator: David Lichteblau 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 --- xml/dom-impl.lisp | 6 ++++-- xml/package.lisp | 1 + 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/xml/dom-impl.lisp b/xml/dom-impl.lisp index 6164499..cef2bc1 100644 --- a/xml/dom-impl.lisp +++ b/xml/dom-impl.lisp @@ -1,5 +1,6 @@ (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)) diff --git a/xml/package.lisp b/xml/package.lisp index 55a0ba6..8a6c79c 100644 --- a/xml/package.lisp +++ b/xml/package.lisp @@ -10,6 +10,7 @@ (:use :glisp :encoding) + (:alias (:cdom :dom)) (:export ;; xstreams -- GitLab