Use cl-flet instead of flet