[elephant-cvs] CVS elephant/tests

[ieslick]

Update of /project/elephant/cvsroot/elephant/tests
In directory common-lisp:/tmp/cvs-serv10634/tests

Modified Files:
	testmigration.lisp 
Log Message:
A quick AllegroCache backend based on the allegrocache map and compound keys - functionality is only partial but the basics work

--- /project/elephant/cvsroot/elephant/tests/testmigration.lisp	2006/02/20 15:45:38	1.8
+++ /project/elephant/cvsroot/elephant/tests/testmigration.lisp	2006/02/20 21:21:45	1.9
@@ -175,7 +175,7 @@
 	  t)
 	(let ((*prev-commit* *auto-commit*))
 	  (unwind-protect
-	       (prog2 
+	       (progn
 		   (setq *auto-commit* t)
 		   (let ((sc1 (open-store *test-spec-primary*))
 			 (sc2 (open-store *test-spec-secondary*)))