walk* check-occ fix
unify use onlisp