use flet instead of cl-flet