/[gcl]/gcl/o/list.d
ViewVC logotype

Diff of /gcl/o/list.d

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.31 by camm, Fri Aug 12 15:42:49 2005 UTC revision 1.32 by camm, Fri Aug 12 15:48:34 2005 UTC
# Line 1316  object x, l; Line 1316  object x, l;
1316          return(FALSE);          return(FALSE);
1317  }  }
1318    
1319  /* static void */  static void
1320  /* FFN(siLmemq)() */  FFN(siLmemq)()
1321  /* { */  {
1322  /*      object x, l; */          object x, l;
1323    
1324  /*      check_arg(2); */          check_arg(2);
1325    
1326  /*      x = vs_base[0]; */          x = vs_base[0];
1327  /*      l = vs_base[1]; */          l = vs_base[1];
1328    
1329  /*      for (;  type_of(l) == t_cons;  l = l->c.c_cdr) */          for (;  type_of(l) == t_cons;  l = l->c.c_cdr)
1330  /*              if (x == l->c.c_car) { */                  if (x == l->c.c_car) {
1331  /*                      vs_base[0] = l; */                          vs_base[0] = l;
1332  /*                      vs_popp; */                          vs_popp;
1333  /*                      return; */                          return;
1334  /*              } */                  }
1335                    
1336  /*      vs_base[0] = Cnil; */          vs_base[0] = Cnil;
1337  /*      vs_popp; */          vs_popp;
1338  /* } */  }
1339    
1340  void  void
1341  delete_eq(x, lp)  delete_eq(x, lp)
# Line 1440  gcl_init_list_function() Line 1440  gcl_init_list_function()
1440          make_function("RASSOC-IF", Lrassoc_if);          make_function("RASSOC-IF", Lrassoc_if);
1441          make_function("RASSOC-IF-NOT", Lrassoc_if_not);          make_function("RASSOC-IF-NOT", Lrassoc_if_not);
1442    
1443  /*      make_si_function("MEMQ", siLmemq); */          make_si_function("MEMQ", siLmemq);
1444    
1445  }  }

Legend:
Removed from v.1.31  
changed lines
  Added in v.1.32

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26