Use cl-flet.