[Basic database connection tools
clinton@unknownlamer.org**20080425042244] hunk ./src/database.lisp 1
-
+(in-package :org.unknownlamer.dnd-tools.db)
+
+(defvar *db-spec* '(:bdb "/home/clinton/misc/bdb/dnd/"))
+
+(defvar *db-store* nil)
+
+(defun connect ()
+  (unless *db-store*
+    (setq *db-store* (open-store *db-spec*
+		      :recover t :deadlock-detect t))))
+
+(defun disconnect ()
+  (when *db-store*
+    (db-bdb:checkpoint *db-store*)
+    (close-store *db-store*)
+    (if (eq *store-controller* *db-store*)
+	(setq *store-controller* nil))
+    (setq *db-store* nil)))