/[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.28 by camm, Tue Jun 14 22:38:26 2005 UTC revision 1.29 by camm, Sat Jul 23 08:54:11 2005 UTC
# Line 1  Line 1 
1    /* -*-C-*- */
2  /*  /*
3   Copyright (C) 1994 M. Hagiya, W. Schelter, T. Yuasa   Copyright (C) 1994 M. Hagiya, W. Schelter, T. Yuasa
4    
# Line 1257  LFD(Lacons)() Line 1258  LFD(Lacons)()
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                  }                  }

Legend:
Removed from v.1.28  
changed lines
  Added in v.1.29

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