Changeset 636 for abuse/trunk/src/lisp/lisp_opt.cppTweet

Timestamp:

May 11, 2011, 1:26:15 AM (11 years ago)

Author:

Sam Hocevar

Message:

lisp: merge the Lisp and LispGC classes and improve coding style.

File:

• abuse/trunk/src/lisp/lisp_opt.cpp (modified) (1 diff)

abuse/trunk/src/lisp/lisp_opt.cpp

@@ -93 +93 @@
 }
 
-void l_comp_init()
+void Lisp::InitConstants()
 {
     // This needs to be defined first
-    l_undefined = LSymbol::FindOrCreate(":UNDEFINED");
-
+    LSymbol *tmp = LSymbol::FindOrCreate(":UNDEFINED");
+    l_undefined = tmp;
     // Collection problems result if we don't do this
-    ((LSymbol *)l_undefined)->function = NULL;
-    ((LSymbol *)l_undefined)->value = NULL;
+    tmp->m_function = NULL;
+    tmp->m_value = NULL;
 
     true_symbol = LSymbol::FindOrCreate("T");