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

lisp: populate LispSymbol? with symbol-related methods.

File:
1 edited

Legend:

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

    r482 r484  
    686686static void post_render()
    687687{
    688   if(DEFINEDP(symbol_function(l_post_render)))
     688  if(DEFINEDP(l_post_render->GetFunction()))
    689689  {
    690690    screen->dirt_off();
    691691    clear_tmp();
    692     eval_function((LispSymbol *)l_post_render, NULL);
     692    eval_function(l_post_render, NULL);
    693693    clear_tmp();
    694694    screen->dirt_on();
     
    12321232    }
    12331233
    1234     void *logo_snd = symbol_value(make_find_symbol("LOGO_SND"));
     1234    void *logo_snd = LispSymbol::FindOrCreate("LOGO_SND")->GetValue();
    12351235
    12361236    if(DEFINEDP(logo_snd) && (sound_avail & SFX_INITIALIZED))
     
    12491249    milli_wait(400);
    12501250
    1251     void *space_snd = symbol_value(make_find_symbol("SPACE_SND"));
     1251    void *space_snd = LispSymbol::FindOrCreate("SPACE_SND")->GetValue();
    12521252
    12531253    fade_out(32);
     
    12551255
    12561256    int i;
    1257     char *str = lstring_value(eval(make_find_symbol("plot_start")));
     1257    char *str = lstring_value(eval(LispSymbol::FindOrCreate("plot_start")));
    12581258
    12591259    bFILE *fp = open_file("art/smoke.spe", "rb");
     
    26372637    if(!(main_net_cfg && main_net_cfg->restart_state()))
    26382638    {
    2639       void *end_msg = make_find_symbol("end_msg");
    2640       if(DEFINEDP(symbol_value(end_msg)))
    2641       printf("%s\n", lstring_value(symbol_value(end_msg)));
     2639      LispSymbol *end_msg = LispSymbol::FindOrCreate("end_msg");
     2640      if(DEFINEDP(end_msg->GetValue()))
     2641      printf("%s\n", lstring_value(end_msg->GetValue()));
    26422642    }
    26432643
Note: See TracChangeset for help on using the changeset viewer.