This is cmponly.h in view mode; [Download] [Up]
#define EQ(x,y) ((x)==(y))
#define CMPmake_fixnum(x) \
((((FIXtemp=(x))+SMALL_FIXNUM_LIMIT)&(-2*SMALL_FIXNUM_LIMIT))==0?small_fixnum(FIXtemp):make_fixnum(FIXtemp))
object make_integer();
/* copy x to y, increasing space by factor of 2 */
GEN otoi();
/*
object integ_temp;
#define otoi(x) (integ_temp = (x) , (type_of(integ_temp) == t_bignum \
? MP(integ_temp) :stoi(fix(integ_temp))))
*/
#define ISETQ_FIX(a,b,c) isetq_fix(a,c)
void isetq_fix();
#ifdef HAVE_ALLOCA
#define SETQ_II(var,alloc,val) \
do{GEN _xx =(val) ; \
int _n = replace_copy1(_xx,var); \
if(_n) var = replace_copy2(_xx,alloca(_n));}while(0)
#define SETQ_IO(var,alloc,val) {object _xx =(val) ; \
int _n = obj_replace_copy1(_xx,var); \
if(_n) var = obj_replace_copy2(_xx,alloca(_n));}
#define IDECL(a,b,c) our_ulong b[4];a =(b[0]=0x1010000 +4,b) ; object c
#else
GEN setq_io(),setq_ii();
#define SETQ_IO(x,alloc,val) (x)=setq_io(x,&alloc,val)
#define SETQ_II(x,alloc,val) (x)=setq_ii(x,&alloc,val)
#define IDECL(a,b,c) our_ulong b[4];a =(b[0]=0x1010000 +4,b);object c
#endif
#define cclosure_call funcall
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.