Changeset 12550

Timestamp:

03/16/10 15:20:01 (13 years ago)

Author:

Mark Evenson

Message:

Fix loading of packed FASLs which have been renamed.

Bug was present since at least 0.18.1.

Location:

trunk/abcl/src/org/armedbear/lisp

Files:

• Load.java (modified) (1 diff)
• Pathname.java (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/Load.java

@@ -164 +164 @@
             LispObject initTruename = Pathname.truename(mergedPathname);
             if (initTruename == null || initTruename.equals(NIL)) {
-                String errorMessage
-                    = "Loadable FASL not found for"
-                    + "'" + pathname + "'"
-                    + " in "
-                    + "'" + mergedPathname + "'";
-                if (ifDoesNotExist) {
-                    return error(new FileError(errorMessage, mergedPathname));
+                // Maybe the enclosing JAR has been renamed?
+                Pathname p = new Pathname(mergedPathname);
+                p.name = Keyword.WILD;
+                p.invalidateNamestring();
+                LispObject result = Pathname.MATCH_WILD_JAR_PATHNAME.execute(p);
+
+                if      (result instanceof Cons
+                    && ((Cons)result).length() == 1
+                    && ((Cons)result).car() instanceof Pathname) {
+                    initTruename = (Pathname)result.car();
                 } else {
-                    Debug.trace(errorMessage);
-                    return NIL;
+                  String errorMessage
+                      = "Loadable FASL not found for "
+                      + "'" + pathname + "'"
+                      + " in "
+                      + "'" + mergedPathname + "'";
+                  if (ifDoesNotExist) {
+                      return error(new FileError(errorMessage, mergedPathname));
+                  } else {
+                      Debug.trace(errorMessage);
+                      return NIL;
+                  }
                 }
             }

trunk/abcl/src/org/armedbear/lisp/Pathname.java

@@ -1358 +1358 @@
 
     // ### match-wild-jar-pathname wild-jar-pathname
-    private static final Primitive LIST_JAR_DIRECTORY = new pf_match_wild_jar_pathname();
+    static final Primitive MATCH_WILD_JAR_PATHNAME = new pf_match_wild_jar_pathname();
     private static class pf_match_wild_jar_pathname extends Primitive {
         pf_match_wild_jar_pathname() {