fix return value

Convert windows style path, such as "C:\hoge\fuga"
into / devided path(*), such as "C:/hoge/fuga".
(*): if you evaluate the following S-exp in Windows,
you'll get the same result.
(expand-file-name "windows-style-path")
fix folderinit.el using set-basepath.el

and some style fix.