(defmethod print-object ((transaction transaction) stream)
(print-unreadable-object (transaction stream :type t :identity nil)
(format stream "#~D with ~D dirty object~:P"
(transaction-id transaction)
(hash-table-count (dirty-objects transaction)))))