- (transaction-level :initarg :transaction-level :accessor transaction-level))
- (:default-initargs :name nil :connection-spec nil :transaction-level 0)
+ (transaction-level :initform 0 :accessor transaction-level)
+ (transaction :initform nil :accessor transaction)
+ (conn-pool :initform nil :initarg :conn-pool :accessor conn-pool))