change local variable definition
change setq to set
change flet to cl-flet