Mercurial > hg > xemacs-beta

comparison src/fns.c @ 223:2c611d1463a6 r20-4b10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b10
author cvs
date Mon, 13 Aug 2007 10:10:54 +0200
parents 262b8bb4a523
children f955c73f5258
comparison
equal deleted inserted replaced
222:aae4c8b01452 223:2c611d1463a6
2877 int 2877 int
2878 internal_equal (Lisp_Object o1, Lisp_Object o2, int depth) 2878 internal_equal (Lisp_Object o1, Lisp_Object o2, int depth)
2879 { 2879 {
2880 if (depth > 200) 2880 if (depth > 200)
2881 error ("Stack overflow in equal"); 2881 error ("Stack overflow in equal");
2882 #ifndef LRECORD_CONS
2882 do_cdr: 2883 do_cdr:
2884 #endif
2883 QUIT; 2885 QUIT;
2884 if (EQ_WITH_EBOLA_NOTICE (o1, o2)) 2886 if (EQ_WITH_EBOLA_NOTICE (o1, o2))
2885 return 1; 2887 return 1;
2886 /* Note that (equal 20 20.0) should be nil */ 2888 /* Note that (equal 20 20.0) should be nil */
2887 else if (XTYPE (o1) != XTYPE (o2)) 2889 else if (XTYPE (o1) != XTYPE (o2))
2950 static int 2952 static int
2951 internal_old_equal (Lisp_Object o1, Lisp_Object o2, int depth) 2953 internal_old_equal (Lisp_Object o1, Lisp_Object o2, int depth)
2952 { 2954 {
2953 if (depth > 200) 2955 if (depth > 200)
2954 error ("Stack overflow in equal"); 2956 error ("Stack overflow in equal");
2957 #ifndef LRECORD_CONS
2955 do_cdr: 2958 do_cdr:
2959 #endif
2956 QUIT; 2960 QUIT;
2957 if (HACKEQ_UNSAFE (o1, o2)) 2961 if (HACKEQ_UNSAFE (o1, o2))
2958 return 1; 2962 return 1;
2959 /* Note that (equal 20 20.0) should be nil */ 2963 /* Note that (equal 20 20.0) should be nil */
2960 else if (XTYPE (o1) != XTYPE (o2)) 2964 else if (XTYPE (o1) != XTYPE (o2))