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;
}