Replace flet with cl-flet while I'm at it.