cl-strutsを使うように変更。