あとは・・defvar した変数は lexical-binding が t でも dynamically bind のままになるみたいだから
--cl-accu-- とやらを予めdefvar しておくとか。