1 |
|
/* -*-C-*- */ |
2 |
/* |
/* |
3 |
Copyright (C) 1994 M. Hagiya, W. Schelter, T. Yuasa |
Copyright (C) 1994 M. Hagiya, W. Schelter, T. Yuasa |
4 |
|
|
1258 |
protectTEST; |
protectTEST; |
1259 |
setupTEST(item, test, test_not, key); |
setupTEST(item, test, test_not, key); |
1260 |
while (!endp(a_list)) { |
while (!endp(a_list)) { |
1261 |
if (TEST((*car_or_cdr)(a_list->c.c_car)) && |
if (a_list->c.c_car != Cnil && |
1262 |
a_list->c.c_car != Cnil) { |
TEST((*car_or_cdr)(a_list->c.c_car))) { |
1263 |
a_list = a_list->c.c_car; |
a_list = a_list->c.c_car; |
1264 |
goto L; |
goto L; |
1265 |
} |
} |