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

[David Lichteblau]

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 (, at bindings)
+         (let ((*files-directory* ,*files-directory*) ;fuer copy&paste:
+	       , at 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