flet-->cl-flet '(lambda (window))-->#'(lambda