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

[David Lichteblau]

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

Modified Files:
	domtest.lisp 
Log Message:
fehlermeldungen mitdribbeln

Date: Sun Dec  4 20:25:09 2005
Author: dlichteblau

Index: cxml/test/domtest.lisp
diff -u cxml/test/domtest.lisp:1.6 cxml/test/domtest.lisp:1.7
--- cxml/test/domtest.lisp:1.6	Sun Dec  4 20:19:18 2005
+++ cxml/test/domtest.lisp	Sun Dec  4 20:25:09 2005
@@ -678,7 +678,7 @@
 				 (funcall (compile nil lisp)))
 			     (serious-condition (c)
 			       (incf nfailed)
-			       (warn "test failed: ~A" c))))))
+			       (format t "~&TEST FAILED: ~A~&" c))))))
 		     (incf i)))))))
       (let* ((d1 (merge-pathnames "tests/level1/core/" *directory*))
 	     (d2 (merge-pathnames "tests/level2/core/" *directory*))