Fixed virtual-module-name to return upcased asdf:component-name if none specified