Changeset 13101


Ignore:
Timestamp:
12/23/10 23:43:44 (11 years ago)
Author:
astalla
Message:

Reduced verbosity of the AbclScriptEngine?

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/scripting/AbclScriptEngine.java

    r13094 r13101  
    6262  loadFromClasspath("/org/armedbear/lisp/scripting/lisp/config.lisp");
    6363  if(getClass().getResource("/abcl-script-config.lisp") != null) {
    64       System.out.println("ABCL: loading configuration from " + getClass().getResource("/abcl-script-config.lisp"));
     64            //TODO: find a way to log this if wanted
     65            //System.out.println("ABCL: loading configuration from " + getClass().getResource("/abcl-script-config.lisp"));
    6566      loadFromClasspath("/abcl-script-config.lisp");
    6667  }
    6768  ((Function) interpreter.eval("#'abcl-script:configure-abcl")).execute(new JavaObject(this));
    68   System.out.println("ABCL: configured");
     69        //System.out.println("ABCL: configured");
    6970  evalScript = (Function) this.findSymbol("EVAL-SCRIPT", "ABCL-SCRIPT").getSymbolFunction();
    7071  compileScript = (Function) this.findSymbol("COMPILE-SCRIPT", "ABCL-SCRIPT").getSymbolFunction();
     
    109110  }
    110111
    111   public LispObject load(Stream stream) {
    112     Symbol keyword_verbose = Lisp.internKeyword("VERBOSE");
    113     Symbol keyword_print = Lisp.internKeyword("PRINT");
    114     /*
    115      * load (filespec &key (verbose *load-verbose*) (print *load-print*)
    116      * (if-does-not-exist t) (external-format :default)
    117      */
    118     return Symbol.LOAD.getSymbolFunction().execute(
    119         new LispObject[] { stream, keyword_verbose, Lisp.NIL,
    120             keyword_print, Lisp.T, Keyword.IF_DOES_NOT_EXIST,
    121             Lisp.T, Keyword.EXTERNAL_FORMAT, Keyword.DEFAULT });
    122   }
     112    public LispObject load(Stream stream) {
     113        Symbol keyword_verbose = Lisp.internKeyword("VERBOSE");
     114        Symbol keyword_print = Lisp.internKeyword("PRINT");
     115        /*
     116         * load (filespec &key (verbose *load-verbose*) (print *load-print*)
     117         * (if-does-not-exist t) (external-format :default)
     118         */
     119        return Symbol.LOAD.getSymbolFunction().execute
     120            (new LispObject[] { stream, keyword_verbose, Lisp.NIL,
     121                                keyword_print, Lisp.NIL,
     122                                Keyword.IF_DOES_NOT_EXIST, Lisp.T,
     123                                Keyword.EXTERNAL_FORMAT, Keyword.DEFAULT });
     124    }
    123125
    124126  public LispObject load(String filespec) {
Note: See TracChangeset for help on using the changeset viewer.