cl-flet as opposed to flet.