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) |
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 |
} |
} |