comparison src/fns.c @ 3379:68f28e378f50

(internal_equal): Don't let ints be equal to floats.

3378:cb9eb3e46e2c

DEFUN ("equal", Fequal, Sequal, 2, 2, 0,
  "T if two Lisp objects have similar structure and contents.\n\
They must have the same data type.\n\
Conses are compared by comparing the cars and the cdrs.\n\
Vectors and strings are compared element by element.\n\
Numbers are compared by value.  Symbols must match exactly.")
  (o1, o2)
     register Lisp_Object o1, o2;
{
  return internal_equal (o1, o2, 0);
}

    error ("Stack overflow in equal");
do_cdr:
  QUIT;
  if (EQ (o1, o2)) return Qt;
#ifdef LISP_FLOAT_TYPE
  if (NUMBERP (o1) && NUMBERP (o2))
    {
      return (extract_float (o1) == extract_float (o2)) ? Qt : Qnil;
    }
#endif
  if (XTYPE (o1) != XTYPE (o2)) return Qnil;
  if (XTYPE (o1) == Lisp_Cons
      || XTYPE (o1) == Lisp_Overlay)
    {

3379:68f28e378f50

DEFUN ("equal", Fequal, Sequal, 2, 2, 0,
  "T if two Lisp objects have similar structure and contents.\n\
They must have the same data type.\n\
Conses are compared by comparing the cars and the cdrs.\n\
Vectors and strings are compared element by element.\n\
Numbers are compared by value, but integers cannot equal floats.\n\
 (Use `=' if you want integers and floats to be able to be equal.)\n\
Symbols must match exactly.")
  (o1, o2)
     register Lisp_Object o1, o2;
{
  return internal_equal (o1, o2, 0);
}

    error ("Stack overflow in equal");
do_cdr:
  QUIT;
  if (EQ (o1, o2)) return Qt;
#ifdef LISP_FLOAT_TYPE
  if (FLOATP (o1) && FLOATP (o2))
    return (extract_float (o1) == extract_float (o2)) ? Qt : Qnil;
#endif
  if (XTYPE (o1) != XTYPE (o2)) return Qnil;
  if (XTYPE (o1) == Lisp_Cons
      || XTYPE (o1) == Lisp_Overlay)
    {