From 84fd7b1fe3af438fe94a93ff6671477b8f4bc8cc Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sat, 27 Feb 2010 16:02:38 +0100 Subject: [PATCH] Introduced macros for fixnum comparison. --- src/h/object.h | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/src/h/object.h b/src/h/object.h index 896a7fd1d..04eb3bc33 100644 --- a/src/h/object.h +++ b/src/h/object.h @@ -132,6 +132,14 @@ typedef cl_object (*cl_objectfn_fixed)(); #define fix(obje) (((cl_fixnum)(obje)) >> 2) #define FIXNUMP(o) (IMMEDIATE(o) == t_fixnum) +#define ECL_FIXNUMP(o) (IMMEDIATE(o) == t_fixnum) +#define ecl_fixnum_lower(a,b) ((cl_fixnum)(a) < (cl_fixnum)(b)) +#define ecl_fixnum_greater(a,b) ((cl_fixnum)(a) > (cl_fixnum)(b)) +#define ecl_fixnum_leq(a,b) ((cl_fixnum)(a) <= (cl_fixnum)(b)) +#define ecl_fixnum_geq(a,b) ((cl_fixnum)(a) >= (cl_fixnum)(b)) +#define ecl_fixnum_plusp(a) ((cl_fixnum)(a) > (cl_fixnum)MAKE_FIXNUM(0)) +#define ecl_fixnum_minusp(a) ((cl_fixnum)(a) < (cl_fixnum)(0)) + /* Immediate characters: */ #define CHARACTER_TAG t_character #define CHARACTERP(o) (IMMEDIATE(o) == t_character)