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