Ignore:
Timestamp:
May 11, 2011, 1:26:15 AM (10 years ago)
Author:
Sam Hocevar
Message:

lisp: merge the Lisp and LispGC classes and improve coding style.

File:
1 edited

Legend:

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

    r555 r636  
    8484        break;
    8585    case L_CHARACTER:
    86         fp->write_uint16(lcharacter_value(level));
     86        fp->write_uint16(((LChar *)level)->GetValue());
    8787        break;
    8888    case L_STRING:
     
    126126                LList *c = LList::Create();
    127127                if (first)
    128                     last->cdr = c;
     128                    last->m_cdr = c;
    129129                else
    130130                    first = c;
    131131                last = c;
    132132            }
    133             last->cdr = (t < 0) ? (LObject *)load_block(fp) : NULL;
     133            last->m_cdr = (t < 0) ? (LObject *)load_block(fp) : NULL;
    134134
    135135            last = first;
    136             for (size_t count = abs(t); count--; last = (LList *)last->cdr)
    137                 last->car = load_block(fp);
     136            for (size_t count = abs(t); count--; last = (LList *)last->m_cdr)
     137                last->m_car = load_block(fp);
    138138            return first;
    139139        }
Note: See TracChangeset for help on using the changeset viewer.