src/loopsops.c
/* Called once to initialize the "constants" above */
Called once to initialize the "constants" above
Called once to initialize the " constants " above
LispPTR LCinit(void) {
  atom_instance = GET_IL_ATOM("instance");
  atom_class = GET_IL_ATOM("class");
  atom_annotatedValue = GET_IL_ATOM("annotatedValue");
  atom_FetchMethodOrHelp_LCUFN = GET_IL_ATOM("\\FetchMethodOrHelp-LCUFN");
  atom_FetchMethod_LCUFN = GET_IL_ATOM("\\FetchMethod-LCUFN");
  atom_FindVarIndex_LCUFN = GET_IL_ATOM("\\FindVarIndex-LCUFN");
  atom_GetIVValue_LCUFN = GET_IL_ATOM("\\GetIVValue-LCUFN");
  atom_PutIVValue_LCUFN = GET_IL_ATOM("\\PutIVValue-LCUFN");
  LCMethodCache = (struct LCMethodCacheEntry *)AtomValPtr(GET_IL_ATOM("*Global-Method-Cache*"));
  LCIVCache = (struct LCIVCacheEntry *)AtomValPtr(GET_IL_ATOM("*Global-IV-Cache-Block*"));
  return NIL_PTR; 
}
LispPTR LCinit ( void ) { atom_instance = GET_IL_ATOM ( " " ) ; atom_class = GET_IL_ATOM ( " " ) ; atom_annotatedValue = GET_IL_ATOM ( " " ) ; atom_FetchMethodOrHelp_LCUFN = GET_IL_ATOM ( " \\ " ) ; atom_FetchMethod_LCUFN = GET_IL_ATOM ( " \\ " ) ; atom_FindVarIndex_LCUFN = GET_IL_ATOM ( " \\ " ) ; atom_GetIVValue_LCUFN = GET_IL_ATOM ( " \\ " ) ; atom_PutIVValue_LCUFN = GET_IL_ATOM ( " \\ " ) ; LCMethodCache = ( struct LCMethodCacheEntry * ) AtomValPtr ( GET_IL_ATOM ( " " ) ) ; LCIVCache = ( struct LCIVCacheEntry * ) AtomValPtr ( GET_IL_ATOM ( " " ) ) ; return NIL_PTR ; }
Called once to initialize the "constants" above
Called once to initialize the " constants " above
/* in case called from lisp */