Commit 699ecb97 authored by ryszard.szopa's avatar ryszard.szopa
Browse files

now by default connections are made with a transaction.

parent f51460ad
......@@ -49,7 +49,9 @@ specified by the DB-CLASS-CONNECTION-SPEC of the class of OBJECT."
"Functional interface to the macro WITH-CLASS-CONNECTION. the
connection will be pooled."
(with-connection-fun (append (db-class-connection-spec class) '(:pooled-p t))
(lambda ()
(postmodern:with-transaction ()
(funcall what-to-do)))))
(defmacro with-class-connection ((class) &body body)
"Run BODY in an environment with an always pooled connection to the database
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment