Changeset 15451


Ignore:
Timestamp:
10/29/20 16:54:49 (2 years ago)
Author:
Mark Evenson
Message:

Truename JAR-PATHNAME creates root jars with type URL-PATHNAME

File:
1 edited

Legend:

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

    r15446 r15451  
    382382      LispObject otherJars
    383383        = p.getJars().cdr();
    384       p.setDevice(new Cons(rootJarTruename, otherJars));
     384      URLPathname newRootJar;
     385      if (rootJarTruename instanceof Pathname) {
     386        newRootJar = URLPathname.createFromFile((Pathname)rootJarTruename);
     387      } else {
     388        newRootJar = (URLPathname) rootJarTruename;
     389      }
     390
     391      p.setDevice(new Cons(newRootJar, otherJars));
    385392    }
    386393
Note: See TracChangeset for help on using the changeset viewer.