comparison src/lread.c @ 5017:9c277d938ccd

(read1): If token has a \, don't treat it as a number.

5016:11f0a3153f63

      }
    default:
      if (c <= 040) goto retry;
      {
	register char *p = read_buffer;

	{
	  register char *end = read_buffer + read_buffer_size;

	  while (c > 040 && 

		  p += new - read_buffer;
		  read_buffer += new - read_buffer;
		  end = read_buffer + read_buffer_size;
		}
	      if (c == '\\')
		c = READCHAR;
	      *p++ = c;
	      c = READCHAR;
	    }

	  if (p == end)

	  *p = 0;
	  if (c >= 0)
	    UNREAD (c);
	}

	/* Is it an integer? */
	{
	  register char *p1;
	  register Lisp_Object val;
	  p1 = read_buffer;
	  if (*p1 == '+' || *p1 == '-') p1++;
	  if (p1 != p)
	    {
	      while (p1 != p && (c = *p1) >= '0' && c <= '9') p1++;
#ifdef LISP_FLOAT_TYPE
	      /* Integers can have trailing decimal points.  */
	      if (p1 > read_buffer && p1 < p && *p1 == '.') p1++;
#endif
	      if (p1 == p)
		/* It is an integer. */
		{
#ifdef LISP_FLOAT_TYPE
		  if (p1[-1] == '.')
		    p1[-1] = '\0';
#endif
		  XSET (val, Lisp_Int, atoi (read_buffer));
		  return val;
		}
	    }
#ifdef LISP_FLOAT_TYPE
	  if (isfloat_string (read_buffer))
	    return make_float (atof (read_buffer));
#endif
	}

	return intern (read_buffer);
      }
    }
}

5017:9c277d938ccd

      }
    default:
      if (c <= 040) goto retry;
      {
	register char *p = read_buffer;
	int quoted = 0;

	{
	  register char *end = read_buffer + read_buffer_size;

	  while (c > 040 && 

		  p += new - read_buffer;
		  read_buffer += new - read_buffer;
		  end = read_buffer + read_buffer_size;
		}
	      if (c == '\\')
		{
		  c = READCHAR;
		  quoted = 1;
		}
	      *p++ = c;
	      c = READCHAR;
	    }

	  if (p == end)

	  *p = 0;
	  if (c >= 0)
	    UNREAD (c);
	}

	if (!quoted)
	  {
	    register char *p1;
	    register Lisp_Object val;
	    p1 = read_buffer;
	    if (*p1 == '+' || *p1 == '-') p1++;
	    /* Is it an integer? */
	    if (p1 != p)
	      {
		while (p1 != p && (c = *p1) >= '0' && c <= '9') p1++;
#ifdef LISP_FLOAT_TYPE
		/* Integers can have trailing decimal points.  */
		if (p1 > read_buffer && p1 < p && *p1 == '.') p1++;
#endif
		if (p1 == p)
		  /* It is an integer. */
		  {
#ifdef LISP_FLOAT_TYPE
		    if (p1[-1] == '.')
		      p1[-1] = '\0';
#endif
		    XSET (val, Lisp_Int, atoi (read_buffer));
		    return val;
		  }
	      }
#ifdef LISP_FLOAT_TYPE
	    if (isfloat_string (read_buffer))
	      return make_float (atof (read_buffer));
#endif
	  }

	return intern (read_buffer);
      }
    }
}