Permalink
Browse files

add disconnect function for postgresql

  • Loading branch information...
snmsts committed May 17, 2012
1 parent 74f434c commit 0fc6ceaeb7730342d2cf23c0e8b076cd495de2f1
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 0fc6cea

Please sign in to comment.