[elephant-cvs] CVS elephant/tests

ieslick ieslick at common-lisp.net
Mon Feb 26 19:12:24 UTC 2007


Update of /project/elephant/cvsroot/elephant/tests
In directory clnet:/tmp/cvs-serv1238/tests

Modified Files:
	elephant-tests.lisp testindexing.lisp 
Log Message:
Tweaks for lispworks compatability

--- /project/elephant/cvsroot/elephant/tests/elephant-tests.lisp	2007/02/07 22:54:13	1.25
+++ /project/elephant/cvsroot/elephant/tests/elephant-tests.lisp	2007/02/26 19:12:19	1.26
@@ -17,8 +17,8 @@
 ;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
 
 (defpackage elephant-tests
-  (:nicknames ele-tests :ele-tests)
-  (:use common-lisp elephant rt)
+  (:nicknames :ele-tests)
+  (:use :common-lisp :elephant :regression-test)
   (:import-from :ele 
 		with-buffer-streams
 		serialize
--- /project/elephant/cvsroot/elephant/tests/testindexing.lisp	2007/02/25 09:37:01	1.29
+++ /project/elephant/cvsroot/elephant/tests/testindexing.lisp	2007/02/26 19:12:20	1.30
@@ -2,8 +2,8 @@
 (in-package :ele-tests)
 
 (defun setup-testing ()
-  (setf rt::*debug* t)
-  (setf rt::*catch-errors* nil)
+  (setf regression-test::*debug* t)
+  (setf regression-test::*catch-errors* nil)
 ;;  (trace elephant::indexed-slot-writer)
   (trace ((method initialize-instance :before (persistent))))
   (trace ((method initialize-instance (persistent-object))))




More information about the Elephant-cvs mailing list