replace flet with cl-flet