Ignore:
Timestamp:
May 11, 2011, 1:26:11 AM (11 years ago)
Author:
Sam Hocevar
Message:

lisp: refactor Lisp spaces so that they are real objects, and get rid
of the unused USER_SPACE.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • abuse/trunk/src/clisp.cpp

    r579 r635  
    724724      for (int x=0; x<trials; x++)
    725725      {
    726     clear_tmp();
     726    LSpace::Tmp.Clear();
    727727    CAR(args)->Eval();
    728728      }
     
    770770        exit(0);
    771771      }
    772       int sp=current_space;
    773       current_space=PERM_SPACE;
     772      LSpace *sp = LSpace::Current;
     773      LSpace::Current = &LSpace::Perm;
    774774      sym->SetNumber(total_objects);   // set the symbol value to the object number
    775       current_space=sp;
     775      LSpace::Current=sp;
    776776      if (!total_objects)
    777777      {
     
    13821382      }
    13831383
    1384       int sp=current_space;
    1385       current_space=PERM_SPACE;
     1384      LSpace *sp = LSpace::Current;
     1385      LSpace::Current = &LSpace::Perm;
    13861386      int id=cache.reg(lstring_value(lcar(args)),NULL,SPEC_EXTERN_SFX,1);
    13871387      if (sym)
    13881388        sym->SetNumber(id);    // set the symbol value to sfx id
    1389       current_space=sp;
     1389      LSpace::Current=sp;
    13901390      return id;
    13911391    } break;
Note: See TracChangeset for help on using the changeset viewer.