Changeset 15451

Timestamp:

10/29/20 16:54:49 (3 years ago)

Author:

Mark Evenson

Message:

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

File:

• trunk/abcl/src/org/armedbear/lisp/JarPathname.java (modified) (1 diff)

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

@@ -382 +382 @@
       LispObject otherJars
         = p.getJars().cdr();
-      p.setDevice(new Cons(rootJarTruename, otherJars));
+      URLPathname newRootJar;
+      if (rootJarTruename instanceof Pathname) {
+        newRootJar = URLPathname.createFromFile((Pathname)rootJarTruename);
+      } else {
+        newRootJar = (URLPathname) rootJarTruename;
+      }
+
+      p.setDevice(new Cons(newRootJar, otherJars));
     }