modify to use FORMAT-SYMBOL function instead of INTERN function
modify to symbolicate underscore in order to intern it in current package