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*)))