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

lisp: implement LispList::GetLength?.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • abuse/trunk/src/lisp/lisp_gc.cpp

    r489 r490  
    110110    ((LispRedirect *)old_x)->new_reference = p;
    111111
    112     p->car = collect_object(old_car);
    113     p->cdr = collect_object(old_cdr);
    114    
     112    p->car = (LispObject *)collect_object(old_car);
     113    p->cdr = (LispObject *)collect_object(old_cdr);
     114
    115115    if (last) last->cdr = p;
    116116    else first = p;
     
    118118  }
    119119  if (x)
    120     last->cdr = collect_object(x);
     120    last->cdr = (LispObject *)collect_object(x);
    121121  return first;                    // we already set the collection pointers
    122122}
     
    209209    {
    210210      for (; x && item_type(x) == L_CONS_CELL; x = CDR(x))
    211         ((LispList *)x)->car = collect_object(((LispList *)x)->car);
     211        ((LispList *)x)->car = (LispObject *)collect_object(((LispList *)x)->car);
    212212      if (x)
    213         ((LispList *)x)->cdr = collect_object(((LispList *)x)->cdr);
     213        ((LispList *)x)->cdr = (LispObject *)collect_object(((LispList *)x)->cdr);
    214214    }
    215215  }
Note: See TracChangeset for help on using the changeset viewer.