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

    r481 r482  
    233233  push_onto_list(new_lisp_number(type),list);
    234234  push_onto_list(new_lisp_pointer(o->get_object(0)),list);
    235   eval_function((lisp_symbol *)l_fire_object,list);
     235  eval_function((LispSymbol *)l_fire_object,list);
    236236  o->lvars[top_just_fired]=1;
    237237  other->lvars[just_fired]=1;
     
    662662
    663663      current_object=top;
    664       void *ret=eval_function((lisp_symbol *)figures[top->otype]->get_fun(OFUN_USER_FUN),args);   
     664      void *ret=eval_function((LispSymbol *)figures[top->otype]->get_fun(OFUN_USER_FUN),args);   
    665665      current_object=o;
    666666      v->add_ammo(v->current_weapon,lnumber_value(ret));   
     
    672672      {
    673673        // call the user function to reset the player
    674     eval_function((lisp_symbol *)l_restart_player,NULL);
     674    eval_function((LispSymbol *)l_restart_player,NULL);
    675675    o->controller()->reset_player();
    676676    o->set_aistate(0);
     
    766766      o->draw_predator();
    767767      } else
    768         eval_function((lisp_symbol *)l_player_draw,ret);
     768        eval_function((LispSymbol *)l_player_draw,ret);
    769769
    770770      o->y=oldy;
     
    829829      case FAST_POWER :
    830830      {
    831     eval_function((lisp_symbol *)l_draw_fast,NULL);
     831    eval_function((LispSymbol *)l_draw_fast,NULL);
    832832    int old_state=o->state;
    833833    switch (o->state)
Note: See TracChangeset for help on using the changeset viewer.