Use cl-flet instead of dflet