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

Modified Files: sql-controller.lisp Log Message: Just a bagatelle

--- /project/elephant/cvsroot/elephant/src/db-clsql/sql-controller.lisp 2006/03/27 20:36:27 1.10 +++ /project/elephant/cvsroot/elephant/src/db-clsql/sql-controller.lisp 2006/04/27 01:34:49 1.11 @@ -325,6 +325,10 @@ ) )

+(defmethod reconnect-controller ((sc sql-store-controller)) + (setf (controller-db sc) + (clsql:reconnect :database (controller-db sc))) +) (defmethod close-controller ((sc sql-store-controller)) (when (slot-value sc 'db) ;; close the connection