if (*format == '%')
format++;
else if (++n >= nargs)
- ;
+ error ("format string wants too many arguments");
else if (*format == 'S')
{
/* For `S', prin1 the argument and then treat like a string. */
else if (XTYPE (args[n]) == Lisp_String)
{
string:
+ if (*format != 's' && *format != 'S')
+ error ("format specifier doesn't match argument type");
total += XSTRING (args[n])->size;
}
/* Would get MPV otherwise, since Lisp_Int's `point' to low memory. */