Bad value from read-from-string

[Juanma Barranquero]

On HEAD:

emacs -q --no-site-file
M-x ielm
1 [enter]

=> Args out of range: "1", 7, 1

Only happens with the first expression evaluated. It is caused by the
value returned by read-from-string.

Perhaps related to:

> 2002-05-28  Colin Walters  <address@hidden>
> 
>         * lread.c (readchar_count): New variable.
>         (readchar): Increment it.
>         (unreadchar): Decrement it.
>         (read_multibyte): Decrement it.
>         (Vread_with_symbol_positions): New variable.
>         (Vread_symbol_positions_list): New variable.
>         (read_internal_start): New function, created from Fread and
>         Fread_from_string.  Handle Vread_symbol_positions_list and
>         Vread_with_symbol_positions.
>         (readevalloop, Fread, Fread_from_string): Use it.
>         (read1): Use readchar_count to add symbol positions to
>         Vread_symbol_positions_list if Vread_with_symbol_positions is
>         non-nil.
>         (syms_of_lread): DEFVAR_LISP and initialize them.
> 
>         * lread.c (read0, read1, read_list, read_vector, read_multibyte)
>         (substitute_object_recurse, substitute_object_in_subtree)
>         (substitute_in_interval): Prototype.
>         (read_multibyte): Return c if it's less than zero.


                                                           /L/e/k/t/u