Commit 37aad758 authored by david's avatar david

Revision: cxml--devel--1.0--patch-92

Archive: david@knowledgetools.de--cxml
Creator: David Lichteblau <david@knowledgetools.de>
Date: Mon Feb  9 15:40:56 CET 2004
Standard-date: 2004-02-09 14:40:56 GMT
Modified-files: domtest.lisp
New-patches: david@knowledgetools.de--cxml/cxml--devel--1.0--patch-92
Summary: instanceOf korrekt uebersetzen

instanceOf korrekt uebersetzen
parent 8a974692
......@@ -203,7 +203,21 @@
(defun translate-instance-of (element)
(with-attributes (|obj| |type|) element
`(typep ,(%intern |obj|) ',(intern-dom |type|))))
`(eq (dom:node-type ,(%intern |obj|))
',(string-case |type|
("Document" :document)
("DocumentFragment" :document-fragment)
("Text" :text)
("Comment" :comment)
("CDATASection" :cdata-section)
("Attr" :attribute)
("Element" :element)
("DocumentType" :document-type)
("Notation" :notation)
("Entity" :entity)
("EntityReference" :entity-reference)
("ProcessingInstruction" :processing-instruction)
(t (error "unknown interface: ~A" |type|))))))
(defun translate-is-null (element)
(with-attributes (|obj|) element
......
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