comparison src/lread.c @ 28388:5b49a098d0cc

(read1): Accept `.' (period) as symbol start like in CL and earlier Emacs versions.

28387:9a8814cc543c

				       || (p - read_buffer != nchars)));
      }

    case '.':
      {
	/* If a period is followed by a number, then we should read it
	   as a floating point number.  Otherwise, it denotes a dotted
	   pair.  */
	int next_char = READCHAR;
	UNREAD (next_char);

	if (! (next_char >= '0' && next_char <= '9'))
	  {
	    *pch = c;
	    return Qnil;
	  }

28388:5b49a098d0cc

				       || (p - read_buffer != nchars)));
      }

    case '.':
      {
	int next_char = READCHAR;
	UNREAD (next_char);

	if (next_char <= 040)
	  {
	    *pch = c;
	    return Qnil;
	  }