Permalink
Browse files

Merge pull request #2 from snmsts/postgres-disconnect

add disconnect function for postgresql
  • Loading branch information...
fukamachi committed May 18, 2012
2 parents 74f434c + 0fc6cea commit 6667fe45b56f006f859ba071003e0437f3270705
Showing with 3 additions and 0 deletions.
  1. +3 −0 src/dbd/postgres.lisp
View
@@ -64,6 +64,9 @@
(defmethod fetch ((query <dbd-postgres-query>))
(pop (slot-value query '%result)))
+(defmethod disconnect ((conn <dbd-postgres-connection>))
+ (close-database (connection-handle conn)))
+
(defmethod begin-transaction ((conn <dbd-postgres-connection>))
(do-sql conn "BEGIN"))

0 comments on commit 6667fe4

Please sign in to comment.