boolean FindLessObj(pointer object, List l) { if(l->type!=ORDERED) ErrorFALSE("FindLessObj used in a not ORDERED list.\n"); if(l->CompareObj==NULL) ErrorFALSE("FindLessObj, uninitialized CompareObj function."); l->C=l->T; while(l->C) { if(l->CompareObj(object,l->C->obj) <= 0) break; l->C=l->C->next; } return TRUE; }