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

lisp: no LispSymbol? members are anonymous pointers any longer.

File:
1 edited

Legend:

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

    r488 r489  
    957957}
    958958
    959 void LispSymbol::SetFunction(void *fun)
     959void LispSymbol::SetFunction(LispObject *fun)
    960960{
    961961    function = fun;
     
    19621962            {
    19631963              if (x==L_NUMBER && ((LispSymbol *)i)->value!=l_undefined)
    1964               ((LispNumber *)(((LispSymbol *)i)->value))->num=lnumber_value(set_to);
     1964                ((LispSymbol *)i)->SetNumber(lnumber_value(set_to));
    19651965              else
    1966               ((LispSymbol *)i)->value=set_to;
     1966                ((LispSymbol *)i)->SetValue((LispNumber *)set_to);
    19671967            } break;
    19681968            case L_OBJECT_VAR :
     
    19711971            } break;
    19721972            default :
    1973             ((LispSymbol *)i)->value=set_to;
     1973              ((LispSymbol *)i)->SetValue((LispObject *)set_to);
    19741974          }
    19751975          ret=((LispSymbol *)i)->value;
     
    20872087    l_user_stack.push(((LispSymbol *)var_name)->value);
    20882088    tmp=eval(CAR(CDR(CAR(var_list))));   
    2089     ((LispSymbol *)var_name)->value=tmp;
     2089    ((LispSymbol *)var_name)->SetValue((LispObject *)tmp);
    20902090    var_list=CDR(var_list);
    20912091      }
     
    21042104      {
    21052105    void *var_name=CAR(CAR(var_list));
    2106     ((LispSymbol *)var_name)->value=l_user_stack.sdata[cur_stack++];
     2106    ((LispSymbol *)var_name)->SetValue((LispObject *)l_user_stack.sdata[cur_stack++]);
    21072107    var_list=CDR(var_list);
    21082108      }
     
    25462546      while (ilist)
    25472547      {
    2548                 bind_var->SetValue(CAR(ilist));
     2548                bind_var->SetValue((LispObject *)CAR(ilist));
    25492549                for (block=arg_list;block;block=CDR(block))
    25502550                  ret=eval(CAR(block));
    25512551                ilist=CDR(ilist);
    25522552      }
    2553       bind_var->SetValue(l_user_stack.pop(1)); // restore symbol value
     2553      bind_var->SetValue((LispObject *)l_user_stack.pop(1)); // restore symbol value
    25542554      ret=ret;
    25552555    } break;
     
    27152715      {
    27162716                sym = (LispSymbol *)CAR(CAR(init_var));
    2717                 sym->SetValue(*do_evaled);
     2717                sym->SetValue((LispObject *)*do_evaled);
    27182718      }
    27192719
     
    27372737      {
    27382738                sym = (LispSymbol *)CAR(CAR(init_var));
    2739                 sym->SetValue(*do_evaled);
     2739                sym->SetValue((LispObject *)*do_evaled);
    27402740      }
    27412741
     
    29372937    // now store all the values and put them into the symbols
    29382938    for (f_arg=fun_arg_list;f_arg;f_arg=CDR(f_arg))
    2939       ((LispSymbol *)CAR(f_arg))->value=l_user_stack.sdata[i++];
     2939      ((LispSymbol *)CAR(f_arg))->SetValue((LispObject *)l_user_stack.sdata[i++]);
    29402940
    29412941    l_user_stack.son=new_start;
     
    29572957  long cur_stack=stack_start;
    29582958  for (f_arg=fun_arg_list;f_arg;f_arg=CDR(f_arg))
    2959     ((LispSymbol *)CAR(f_arg))->value=l_user_stack.sdata[cur_stack++];
     2959    ((LispSymbol *)CAR(f_arg))->SetValue((LispObject *)l_user_stack.sdata[cur_stack++]);
    29602960
    29612961  l_user_stack.son=stack_start;
     
    31273127}
    31283128
    3129 void *LispSymbol::GetName()
     3129LispString *LispSymbol::GetName()
    31303130{
    31313131#ifdef TYPE_CHECKING
     
    31563156}
    31573157
    3158 void LispSymbol::SetValue(void *val)
     3158void LispSymbol::SetValue(LispObject *val)
    31593159{
    31603160#ifdef TYPE_CHECKING
     
    31693169}
    31703170
    3171 void *LispSymbol::GetFunction()
     3171LispObject *LispSymbol::GetFunction()
    31723172{
    31733173#ifdef TYPE_CHECKING
     
    31823182}
    31833183
    3184 void *LispSymbol::GetValue()
     3184LispObject *LispSymbol::GetValue()
    31853185{
    31863186#ifdef TYPE_CHECKING
Note: See TracChangeset for help on using the changeset viewer.