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/clisp.cpp

    r481 r482  
    576576    exit(0);
    577577      }
    578       return eval_function((lisp_symbol *)ai,NULL);
     578      return eval_function((LispSymbol *)ai,NULL);
    579579    } break;
    580580    case 1 :
     
    704704      void *f=figures[current_object->otype]->get_fun(OFUN_USER_FUN);
    705705      if (!f) return NULL;
    706       return eval_function((lisp_symbol *)f,args);
     706      return eval_function((LispSymbol *)f,args);
    707707    } break;
    708708    case 17 :
     
    753753    case 23 :         // def_character
    754754    {
    755       lisp_symbol *sym=(lisp_symbol *)lcar(args);
     755      LispSymbol *sym=(LispSymbol *)lcar(args);
    756756      if (item_type(sym)!=L_SYMBOL)
    757757      {
     
    13501350    case 133 :  // def_sound
    13511351    {
    1352       lisp_symbol *sym=NULL;
     1352      LispSymbol *sym=NULL;
    13531353      if (CDR(args))
    13541354      {
    1355     sym=(lisp_symbol *)lcar(args);
     1355    sym=(LispSymbol *)lcar(args);
    13561356    if (item_type(sym)!=L_SYMBOL)
    13571357    {
     
    22592259    current_object=v->focus;
    22602260
    2261     eval_function((lisp_symbol *)l_restart_player,NULL);
     2261    eval_function((LispSymbol *)l_restart_player,NULL);
    22622262    v->reset_player();
    22632263    v->focus->set_aistate(0);
Note: See TracChangeset for help on using the changeset viewer.