/[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.32 by camm, Fri Aug 12 15:48:34 2005 UTC revision 1.33 by camm, Wed Sep 7 02:55:02 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.32  
changed lines
  Added in v.1.33

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