Commit d09d5c61 authored by david's avatar david

Revision: cxml--devel--1.0--patch-94

Archive: david@knowledgetools.de--cxml
Creator: David Lichteblau <david@knowledgetools.de>
Date: Mon Feb  9 16:14:36 CET 2004
Standard-date: 2004-02-09 15:14:36 GMT
Modified-files: xml/dom-impl.lisp
New-patches: david@knowledgetools.de--cxml/cxml--devel--1.0--patch-94
Summary: can-adopt-p implementiert

can-adopt-p implementiert
parent 1316c6f6
......@@ -685,8 +685,25 @@
(setf newval (rod newval))
(setf (slot-value newval 'data) newval))
;; Notbehelf!
(defun can-adopt-p (x y) x y t)
;; das koennte man auch mit einer GF machen
(defun can-adopt-p (parent child)
(typep child
(let ((default '(or element processing-instruction comment text
cdata-section entity-reference)))
(etypecase parent
(document
'(or element processing-instruction comment document-type))
(document-fragment default)
(document-type 'nil)
(entity-reference default)
(element default)
(attribute '(or text entity-reference))
(processing-instruction 'nil)
(comment 'nil)
(text 'nil)
(cdata-section 'nil)
(entity default)
(notation 'nil)))))
;;; predicates
......
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