replaced cl-flet with flet again do to error