(test "char *" (to-c-type '(%pointer char)))