member0.c

/* compiler output */
SExp *member0_p (SExp *, SExp *);

SExp *
member0_p (SExp * x, SExp * l)
{
  SExp *ret = nil, *x2 = nil, *l3 = nil;
  int s1 = 1;
  while (s1)
  {

      ret = SNIL;

      SExp *condit4 = nil;
      condit4 = eqp (l, SNIL);
      if (condit4 == nil || condit4->TYPE == NIL
      || ((condit4->type == BOOL || condit4->type == GOAL)
          && condit4->object.c))
    {
      s1 = 0;
      ret = SFALSE;
    } else {
      condit4 = eqp (car (l), x);
      if (condit4 == nil || condit4->TYPE == NIL
          || ((condit4->type == BOOL || condit4->type == GOAL)
          && condit4->object.c))
        {
          s1 = 0;
         ret = STRUE;
        } else {
          x2 = x;
          l3 = cdr (l);
          x = x2;
          l = l3;

        }

    }

  }
  return ret;
}

member0.ss

;; source
(def (member0? x l)
 (cond
  (eq? l '()) #f
  (eq? (car l) x) #t
  else (member0? x (cdr l))))