#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);
\f
static void
-indef_print (Lisp_Object obj, Lisp_Object printcharfun, int UNUSED(escapeflag))
+indef_print (Lisp_Object obj, Lisp_Object printcharfun, int SXE_UNUSED(escapeflag))
{
Bufbyte *istr = indef_to_string(XINDEF_DATA(obj));
write_c_string((char*)istr, printcharfun);
}
static int
-indef_equal (Lisp_Object obj1, Lisp_Object obj2, int UNUSED(depth))
+indef_equal (Lisp_Object obj1, Lisp_Object obj2, int SXE_UNUSED(depth))
{
return (XINDEF_DATA(obj1) == XINDEF_DATA(obj2));
}
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[] = {
}
static Lisp_Object
-ent_lift_indef(Lisp_Object number, ent_lift_args_t UNUSED(unused))
+ent_lift_indef(Lisp_Object number, ent_lift_args_t SXE_UNUSED(unused))
{
if (INFINITYP(number))
return number;
}
Lisp_Object
-ent_lift_INDEF_T_COMPARABLE(Lisp_Object number, ent_lift_args_t UNUSED(unused))
+ent_lift_INDEF_T_COMPARABLE(Lisp_Object number, ent_lift_args_t SXE_UNUSED(unused))
{
if (COMPARABLE_INDEF_P(number))
return number;
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);