Exemple #1
0
  public void eval(Environment aEnvironment, int aStackTop) throws Exception {
    LispError.checkCore(
        aEnvironment, aStackTop, aEnvironment.iSecure == false, LispError.KLispErrSecurityBreach);

    ConsPointer evaluated = new ConsPointer();
    evaluated.setCons(argumentPointer(aEnvironment, aStackTop, 1).getCons());

    // Get file name
    LispError.checkArgumentCore(aEnvironment, aStackTop, evaluated.getCons() != null, 1);
    String orig = evaluated.getCons().string();
    LispError.checkArgumentCore(aEnvironment, aStackTop, orig != null, 1);

    UtilityFunctions.loadDefFile(aEnvironment, orig);
    UtilityFunctions.internalTrue(aEnvironment, result(aEnvironment, aStackTop));
  }