Ignore:
Timestamp:
Apr 17, 2011, 10:28:44 AM (11 years ago)
Author:
Sam Hocevar
Message:

lisp: implement LispList::GetLength?.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • abuse/trunk/src/lcache.cpp

    r488 r490  
    131131      x--;
    132132    }
    133     if (t<0)   
    134       last->cdr=load_block(fp);
    135     else last->cdr=NULL;
    136    
     133    last->cdr = (t < 0) ? (LispObject *)load_block(fp) : NULL;
     134
    137135    for (last=first,x=0;x<abs(t);x++,last=(LispList *)last->cdr)
    138       last->car=load_block(fp);   
     136      last->car = (LispObject *)load_block(fp);
    139137    return first;
    140138      }
Note: See TracChangeset for help on using the changeset viewer.