with-connection

fukamachi · Nov 29, 2012 · 2d507b7 · 2d507b7
1 parent 0f68794
commit 2d507b7
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/src/dbi.lisp b/src/dbi.lisp
@@ -83,3 +83,10 @@
          (if ,ok
              (commit ,conn-var)
              (rollback ,conn-var))))))
+
+@export
+(defmacro with-connection ((conn-sym &rest rest) &body body)
+  `(let ((,conn-sym (connect ,@rest)))
+     (unwind-protect
+          (progn ,@body)
+       (disconnect ,conn-sym))))