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

[rread]

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