Changeset 14002 for trunk/abcl/src/org/armedbear/lisp/scripting

Timestamp:

07/12/12 09:25:37 (9 years ago)

Author:

Mark Evenson

Message:

dmiles: SYS:*COMPILE-FILE-CLASS-EXTENSION* contains PATHNAME TYPE of compiled JVM artifacts.

The default "cls" of compiled JVM artifacts was chosen to easily
differentiate bewtween JVM artifacts not produced by ABCL and those
which are the JVM bytecode of the ABCL Java 5.0 compiler. During the
bootstrapping and subsequent debugging of the current compiler, this
distinction has proven more useful than giving ABCL produced artifacts
the default "class" CL:PATHNAME TYPE.

This change facilitates the bootstrapping of [running ABCL on the MSFT
.NET CLR underway by dmiles][abcl-ikvm]

[abcl-ikvm]: ​http://code.google.com/r/logicmoo-abcl-ikvm

dmiles: Implementation of ticket #34.

dmiles: It makes no change at first but makes implmentation satisfactory to my
initial request.

File:

• trunk/abcl/src/org/armedbear/lisp/scripting/AbclScriptEngine.java (modified) (2 diffs)

trunk/abcl/src/org/armedbear/lisp/scripting/AbclScriptEngine.java

@@ -137 +137 @@
 
   public static boolean isCompiled(String filespec) {
-    if (filespec.endsWith(".abcl")) {
+    final String compiledExt = "." + Lisp._COMPILE_FILE_TYPE_.symbolValue().getStringValue();
+    if (filespec.endsWith(compiledExt)) {
       return true;
     }
@@ -145 +146 @@
       source = new File(filespec);
       compiled = new File(filespec.substring(0, filespec.length() - 5)
-          + ".abcl");
+          + compiledExt);
     } else {
       source = new File(filespec + ".lisp");
-      compiled = new File(filespec + ".abcl");
+      compiled = new File(filespec + compiledExt);
     }
     if (!source.exists()) {