+cl-prevalence.lisp の find-XX を書きました。これで大分完成したかも。