Replace flet with cl-flet