Use cl-flet instead flet.