let
basename x =
let
name =
D
.
Compinfo
.basename x.fcomp
in
(name^
"_"
^x.fname)