replaced flet macro by cl-flet