[elephant-cvs] CVS elephant/src/db-clsql

[rread]

Update of /project/elephant/cvsroot/elephant/src/db-clsql
In directory clnet:/tmp/cvs-serv22716/src/db-clsql

Modified Files:
	sql-controller.lisp 
Log Message:
Workaround for SBCL 0.9.9 weirdness and making the tests repeatably runnable.


--- /project/elephant/cvsroot/elephant/src/db-clsql/sql-controller.lisp	2006/02/25 20:53:57	1.8
+++ /project/elephant/cvsroot/elephant/src/db-clsql/sql-controller.lisp	2006/03/01 18:57:34	1.9
@@ -131,7 +131,8 @@
   (remhash index-name (indices-cache bt))
   (let ((indices (indices bt)))
     (remhash index-name indices)
-    (setf (indices bt) indices)))
+    (setf (indices bt) indices))
+  )
 
 (defmethod add-index ((bt sql-indexed-btree) &key index-name key-form populate)
   (let* ((sc (get-con bt))