Support case-sensitive lisps.

* Alter `format-symbol` to accept a string designator as the format
  control.
* Use uninterned symbols as format control for type names in type.lisp
  to get the correct names in case-sensitive lisps.