#include "lisp.h"
#include "sysproc.h" /* For qxe_getpid */
-#include "ent-indef.h"
+#include "ent.h"
static inline int indef_eq(Lisp_Object, Lisp_Object);
static inline int indef_neq(Lisp_Object, Lisp_Object);
}
static unsigned long
-indef_hash (Lisp_Object obj, int depth)
+indef_hash (Lisp_Object obj, int SXE_UNUSED(depth))
{
return (unsigned long)XINDEF_DATA(obj);
-
- /* less warnings */
- if (depth);
}
static const struct lrecord_description indef_description[] = {
return make_indef(NOT_A_NUMBER);
}
}
-static Lisp_Object
+static Lisp_Object
indef_div(Lisp_Object l, Lisp_Object r)
{
if (INDEFP(l) && INDEFP(r))
} else if (COMPARABLEP(l) && INDEFP(r)) {
if (!COMPARABLE_INDEF_P(r))
return r;
- else
+ else
return Qzero;
} else if (INFINITYP(l) || INFINITYP(r)) {
return make_indef(COMPLEX_INFINITY);