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

lisp: make all lisp object inherit a common type.

File:
1 edited

Legend:

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

    r481 r482  
    202202  /* First see if the variable has been defined for another object
    203203     if so report a conflict if any occur */
    204   lisp_symbol *s=(lisp_symbol *)symbol;
     204  LispSymbol *s=(LispSymbol *)symbol;
    205205  if (DEFINEDP(s->value) && (item_type(s->value)!=L_OBJECT_VAR))
    206206  {
     
    210210  } else if (DEFINEDP(s->value))
    211211  {
    212     int index=((lisp_object_var *)s->value)->number;
     212    int index=((LispObjectVar *)s->value)->number;
    213213    if (index<tiv)
    214214    {
Note: See TracChangeset for help on using the changeset viewer.