flet-->cl-flet '(lambda (window))-->#'(lambda
Merge pull request #19 from yoursaf/patch-1

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