Provide access to file names

[kiselgra]

It would be great to have access to the filename that is compiled. I.e. for

cm c foo.lisp

c-mera:base-file could hold the string "foo.lisp", and c-mera:current-file could hold the name of the file currently evaluated (e.g. via load in foo.lisp).