[cl-prevalence-devel] A useful macro?

Hi cl-prevalence devs,

I have been playing around a bit with cl-prevalence and found the following macro useful:

(defmacro deftxn (name (system &rest args) &body body) (let ((tx-name (intern (format nil "TX-~A" NAME)))) `(progn (defun ,tx-name (,system ,@args) ,@body) (defun ,name (,system ,@args) (execute-transaction (,tx-name ,system ,@args))))))

So my question is, is this pattern worth abstracting or is there a reason to use the more explicit method of defining a tx-* function then calling (execute (make-transaction ...)) or (execute-transaction ...).

Thanks!

Anthony