Replaced use of deprecated flet with cl-flet