persistent-object に dirty-p を付けたけど、まだ使ってない。