C++ (Cpp) Package::external_symbols示例

示例#1

文件： profiler.cpp 项目： bsmr-common-lisp/xcl

static void zero_call_counts()
{
  Value packages = CL_list_all_packages();
  while (packages != NIL)
    {
      Package * package = check_package(car(packages));
      Value internal_symbols = package->internal_symbols();
      while (internal_symbols != NIL)
        {
          Symbol * symbol = the_symbol(car(internal_symbols));
          zero_call_count(symbol);
          internal_symbols = xcdr(internal_symbols);
        }
      Value external_symbols = package->external_symbols();
      while (external_symbols != NIL)
        {
          Symbol * symbol = the_symbol(car(external_symbols));
          zero_call_count(symbol);
          external_symbols = xcdr(external_symbols);
        }
      packages = xcdr(packages);
    }
}