More debugging

atgreen · Jan 25, 2019 · 5d31200 · 5d31200
1 parent 1fbfca7
commit 5d31200
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/db.lisp b/db.lisp
@@ -34,8 +34,8 @@
 		     (:sqlite3 1))
 	 :item-maker (ecase db
 		       (:sqlite3
-			#'(lambda () (dbi:connect :sqlite3 :database-name sqlite-db-filename))))
-	 :item-destroyer #'(lambda (item) (dbi:disconnect item))))
+			#'(lambda () (print "*** CREATING CONNECTION ***") (dbi:connect :sqlite3 :database-name sqlite-db-filename))))
+	 :item-destroyer #'(lambda (item) (print "*** DESTROYING CONNECTION ***") (dbi:disconnect item))))
 
   (pooler:with-pool (db *pool*)
     (when fresh