Commit 291513b3 authored by david's avatar david

Revision: cxml--devel--1.0--patch-93

Creator: David Lichteblau <>
Date: Mon Feb  9 16:09:39 CET 2004
Standard-date: 2004-02-09 15:09:39 GMT
Modified-files: domtest.lisp
Summary: <or>

parent 37aad758
......@@ -181,6 +181,7 @@
("isNull" (translate-is-null element))
("not" (translate-is-null element))
("notNull" (translate-not-null element))
("or" (translate-or element))
("same" (translate-same element))
(t (error "unknown condition: ~A" element))))
......@@ -201,6 +202,9 @@
(with-attributes (|actual| |expected|) element
`(eql ,(%intern actual) ,(parse-java-literal expected))))
(defun translate-or (element)
`(or ,@(map-child-elements 'list #'translate-condition element)))
(defun translate-instance-of (element)
(with-attributes (|obj| |type|) element
`(eq (dom:node-type ,(%intern |obj|))
......@@ -460,7 +464,10 @@
(defun translate-assert-true (element)
(with-attributes (|actual|) element
`(assert ,(%intern |actual|))))
`(assert ,(if |actual|
(%intern |actual|)
(do-child-elements (c element) (return c)))))))
(defun translate-assert-false (element)
(with-attributes (|actual|) 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