[cxml-cvs] CVS update: cxml/test/domtest.lisp

[David Lichteblau]

Update of /project/cxml/cvsroot/cxml/test
In directory common-lisp.net:/tmp/cvs-serv10584/test

Modified Files:
	domtest.lisp 
Log Message:
dom murmel dom

Date: Sun Dec  4 23:57:31 2005
Author: dlichteblau

Index: cxml/test/domtest.lisp
diff -u cxml/test/domtest.lisp:1.10 cxml/test/domtest.lisp:1.11
--- cxml/test/domtest.lisp:1.10	Sun Dec  4 23:18:35 2005
+++ cxml/test/domtest.lisp	Sun Dec  4 23:57:31 2005
@@ -336,6 +336,7 @@
     ("fail"		(translate-fail element))
     ("hasFeature" (translate-has-feature element))
     ("if"		(translate-if element))
+    ("implementation"	(translate-implementation element))
     ("increment"	(translate-unary-assignment '+ element))
     ("decrement"	(translate-unary-assignment '- element))
     ("length"		(translate-length element))
@@ -365,6 +366,10 @@
   (with-attributes (|var| |href| |willBeModified|) load
     (maybe-setf (%intern |var|)
                 `(load-file ,|href| ,(parse-java-literal |willBeModified|)))))
+
+(defun translate-implementation (elt)
+  (with-attributes (|var|) elt
+    (maybe-setf (%intern |var|) `'dom-impl::implementation)))
 
 (defun translate-length (load)
   ;; XXX Soweit ich sehe unterscheiden die Tests nicht zwischen