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

Modified Files: domtest.lisp Log Message: ohne prefix haben wir beim namespace-processing aber trotzdem einen lname

Date: Sun Dec 4 23:18:35 2005 Author: dlichteblau

Index: cxml/test/domtest.lisp diff -u cxml/test/domtest.lisp:1.9 cxml/test/domtest.lisp:1.10 --- cxml/test/domtest.lisp:1.9 Sun Dec 4 22:15:37 2005 +++ cxml/test/domtest.lisp Sun Dec 4 23:18:35 2005 @@ -615,7 +615,8 @@ (t (push (translate-statement e) code)))) `(lambda () - (let (,@bindings) + (let ((*files-directory* ,*files-directory*) ;fuer copy&paste: + ,@bindings) (declare (ignorable ,@(mapcar #'car bindings))) ,@(reverse code))))))

@@ -699,8 +700,8 @@ (ecase level (1 (merge-pathnames "tests/level1/core/" *directory*)) (2 (merge-pathnames "tests/level2/core/" *directory*)))) - (lisp (slurp-test (merge-pathnames href test-directory))) (*files-directory* (merge-pathnames "files/" test-directory)) + (lisp (slurp-test (merge-pathnames href test-directory))) (cxml::*validate* nil)) (print lisp) (when lisp