Changeset 15503


Ignore:
Timestamp:
05/10/21 13:10:29 (8 months ago)
Author:
Mark Evenson
Message:

abcl-aio: fix finding ABCL-CONTRIB

Probably broken since the revision of the JAR-PATHNAME merging
semantics in abcl-1.8.0.

Resolves <https://github.com/armedbear/abcl/issues/372>,
<https://abcl.org/trac/ticket/486>.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/abcl-contrib.lisp

    r15464 r15503  
    169169  ID."
    170170  (declare (type pathname file))
    171   (let* ((jar (java:jnew "java.util.jar.JarFile" (namestring file)))
    172          (manifest (java:jcall "getManifest" jar))
    173          (entries (java:jcall "toArray"
    174                               (java:jcall "entrySet"
    175                                           (java:jcall "getEntries" manifest)))))
     171  (let* ((jar-file
     172           (java:jcall "getFile" (first (pathname-device file))))
     173         (jar
     174           (java:jnew "java.util.jar.JarFile" jar-file))
     175         (manifest
     176           (java:jcall "getManifest" jar))
     177         (entries
     178           (java:jcall "toArray"
     179                       (java:jcall "entrySet"
     180                                   (java:jcall "getEntries" manifest)))))
    176181    (dolist (entry
    177182              (loop :for entry :across entries
     
    209214          (when (and system-jar relative-pathname)
    210215            (merge-pathnames (pathname (concatenate 'string
    211                                                    relative-pathname "/"))
    212                             (make-pathname
    213                              :device (list system-jar))))))
     216                                                    relative-pathname "/"))
     217                             system-jar))))
     218                                      
    214219   (ignore-errors
    215220     (find-contrib-jar))
Note: See TracChangeset for help on using the changeset viewer.