[armedbear-cvs] r14194 - trunk/abcl/src/org/armedbear/lisp

[mevenson at common-lisp.net]

Author: mevenson
Date: Sat Oct 13 06:20:48 2012
New Revision: 14194

Log:
Possible fix for #249.

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

Modified: trunk/abcl/src/org/armedbear/lisp/Load.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/Load.java	Sat Oct 13 03:09:08 2012	(r14193)
+++ trunk/abcl/src/org/armedbear/lisp/Load.java	Sat Oct 13 06:20:48 2012	(r14194)
@@ -170,7 +170,7 @@
               return error(new FileError((MessageFormat.format("Failed to address JAR-PATHNAME truename {0} for name {1}", truename.princToString(), name)), truename));
             }
 
-            LispObject initTruename = Pathname.truename(mergedPathname);
+            LispObject initTruename = coercePathnameOrNull(Pathname.truename(mergedPathname));
             if (initTruename == null || initTruename.equals(NIL)) {
                 // Maybe the enclosing JAR has been renamed?
                 Pathname p = new Pathname(mergedPathname);