(rollback-hooks :initform () :accessor rollback-hooks)
(status :initform nil :accessor status))) ;can be nil :rolled-back or :commited
(rollback-hooks :initform () :accessor rollback-hooks)
(status :initform nil :accessor status))) ;can be nil :rolled-back or :commited