Changeset 497 for abuse/trunk/src/clisp.cppTweet

Timestamp:

Apr 17, 2011, 11:56:59 PM (11 years ago)

Author:

Sam Hocevar

Message:

lisp: implement LSymbol::EvalFunction? and ensure all local pointers are
protected against collection.

File:

• abuse/trunk/src/clisp.cpp (modified) (3 diffs)

abuse/trunk/src/clisp.cpp

@@ -582 +582 @@
     exit(0);
       }
-      return eval_function((LSymbol *)ai,NULL);
+      return ((LSymbol *)ai)->EvalFunction(NULL);
     } break;
     case 1 :
@@ -710 +710 @@
       void *f=figures[current_object->otype]->get_fun(OFUN_USER_FUN);
       if (!f) return NULL;
-      return eval_function((LSymbol *)f,args);
+      return ((LSymbol *)f)->EvalFunction(args);
     } break;
     case 17 :
@@ -2265 +2265 @@
     current_object=v->focus;
 
-    eval_function((LSymbol *)l_restart_player,NULL);
+    ((LSymbol *)l_restart_player)->EvalFunction(NULL);
     v->reset_player();
     v->focus->set_aistate(0);