(defmethod transaction-changed-object ((transaction standard-transaction) object-id) (gethash object-id (dirty-objects transaction)))