[elephant-cvs] CVS update: elephant/tests/testcollections.lisp

[Robert L. Read]

Update of /project/elephant/cvsroot/elephant/tests
In directory common-lisp.net:/tmp/cvs-serv19163/tests

Modified Files:
	testcollections.lisp 
Log Message:
Bug fix for unicode SBCL

Date: Mon Dec  5 16:08:37 2005
Author: rread

Index: elephant/tests/testcollections.lisp
diff -u elephant/tests/testcollections.lisp:1.4 elephant/tests/testcollections.lisp:1.5
--- elephant/tests/testcollections.lisp:1.4	Wed Nov 23 18:51:59 2005
+++ elephant/tests/testcollections.lisp	Mon Dec  5 16:08:36 2005
@@ -77,7 +77,7 @@
 ;; "key-1".  I need to understand this, but don't at present....
 (deftest remove-kv
      (finishes 
-       (with-transaction (:store-controller *store-controller*) (remove-kv "key-1" bt)))
+       (with-transaction (:store-controller *store-controller*) (remove-kv first-key bt)))
   t)
 
 (deftest removed