jinni.c
/**
 * If `a` is an association list such as the one formed by pairlis,
 * then assoc will produce the first pair whose first term is x.
 * Thus it is a table searching function.
 */
If `a` is an association list such as the one formed by pairlis,
then assoc will produce the first pair whose first term is x.
Thus it is a table searching function.
If ` a ` is an association list such as the one formed by pairlis then assoc will produce the first pair whose first term is x . Thus it is a table searching function .
S_Expr *assoc(S_Expr *x, S_Expr *a)
{
  if (is_nil_atom(a))
    return a;
  return (equal_internal(car(car(a)), x) ? car(a) : assoc(x, cdr(a)));
}
S_Expr * assoc ( S_Expr * x , S_Expr * a ) { if ( is_nil_atom ( a ) ) return a ; return ( equal_internal ( car ( car ( a ) ) , x ) ? car ( a ) : assoc ( x , cdr ( a ) ) ) ; }
If `a` is an association list such as the one formed by pairlis,
 then assoc will produce the first pair whose first term is x.
If ` a ` is an association list such as the one formed by pairlis then assoc will produce the first pair whose first term is x .