mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-15 13:52:16 -08:00
Code Issues Projects Releases Packages Wiki Activity

Introduced macros for fixnum comparison.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-02-27 16:02:38 +01:00
parent bc0fcb8f9e
commit 84fd7b1fe3
1 changed files with 8 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/h/object.h
View file

@ -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)