fehlermeldungen mitdribbeln

2005-12-04 19:25:08 +00:00
parent 148ccf235d
commit f485e89c10
2 changed files with 406 additions and 1 deletions
--- a/test/domtest.lisp
+++ b/test/domtest.lisp
@ -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*))