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

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