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