Changeset 484 for abuse/trunk/src/loader2.cppTweet

Timestamp:

Apr 17, 2011, 10:28:20 AM (11 years ago)

Author:

Sam Hocevar

Message:

lisp: populate LispSymbol? with symbol-related methods.

File:

• abuse/trunk/src/loader2.cpp (modified) (2 diffs)

abuse/trunk/src/loader2.cpp

@@ -367 +367 @@
 
   char const *ff;
-  if (DEFINEDP(symbol_value(make_find_symbol("frame_file"))))
-    ff=lstring_value(symbol_value(make_find_symbol("frame_file")));
+  // FIXME: unnecessary duplicate call
+  if (DEFINEDP(LispSymbol::FindOrCreate("frame_file")->GetValue()))
+    ff = lstring_value(LispSymbol::FindOrCreate("frame_file")->GetValue());
   else
-    ff="art/frame.spe";
+    ff = "art/frame.spe";
 
   ok_button   =      cache.reg(ff,"dev_ok",SPEC_IMAGE);
@@ -415 +416 @@
   {
     if (!strcmp(argv[i],"-ec"))
-      set_symbol_value(l_empty_cache,true_symbol);
+      l_empty_cache->SetValue(true_symbol);
     if (!strcmp(argv[i],"-t"))
     {