Replace an flet with cl-flet