(defmethod db-txn-commit ((txn txn) &key no-sync sync) (%db-txn-commit txn :txn-no-sync no-sync :txn-sync sync) (setf (slot-value txn 'txn-handle) nil) t)