ftp.nice.ch/pub/next/developer/languages/lisp/gcl.2.2-LISP.I.bs.tar.gz#/gcl-2.2/misc/check_obj.c

This is check_obj.c in view mode; [Download] [Up]

#include "include.h"
#define CHECK(a,b) \
do{ i++; if ((void *) a != (void *) b) printf("differed %d\n",i);}while(0)

main()
{object x;
 int i=0;
CHECK(&x->s.s_self,&x->ust.ust_self);
CHECK(&x->s.s_fillp,&x->ust.ust_fillp);
CHECK(&x->v.v_fillp,&x->ust.ust_fillp);
CHECK(&x->v.v_dim,&x->ust.ust_dim);
CHECK(&x->cfn.,&x->ust.ust_dim); 
}

These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.