src/z2.c
/*   (CL:FMEMB item list)  OP 35Q  */
FMEMB item list)  OP 35Q
FMEMB item list ) OP 35Q
LispPTR N_OP_clfmemb(register LispPTR item, register LispPTR list) { 
  switch (item & SEGMASK) {
    case S_POSITIVE: break;
    case S_NEGATIVE: break;
    case S_CHARACTER: break;
    case ATOM_OFFSET: break;
    default: ERROR_EXIT(list);
  }
  while (Listp(list)) {
    if (item == car(list)) return list;
    list = cdr(list);
    if (!Irq_Stk_End) {
      TopOfStack = list; 
      TIMER_EXIT(list);
    }
  }
  if (list) ERROR_EXIT(list);
  return list;
}
LispPTR N_OP_clfmemb ( register LispPTR item , register LispPTR list ) { switch ( item & SEGMASK ) { case S_POSITIVE : break ; case S_NEGATIVE : break ; case S_CHARACTER : break ; case ATOM_OFFSET : break ; default : ERROR_EXIT ( list ) ; } while ( Listp ( list ) ) { if ( item == car ( list ) ) return list ; list = cdr ( list ) ; if ( ! Irq_Stk_End ) { TopOfStack = list ; TIMER_EXIT ( list ) ; } } if ( list ) ERROR_EXIT ( list ) ; return list ; }
(CL:FMEMB item list)  OP 35Q
( CL : FMEMB item list ) OP 35Q
/* OP 35Q */ /* JRB - Don Charnley claims the code below should be identical to IL:FMEMB,
        so I copied it */ /* if we get an interrupt, punt so we can handle it safely */ /* for continuation */