Changeset 13672


Ignore:
Timestamp:
10/24/11 07:56:18 (9 years ago)
Author:
Mark Evenson
Message:

Be a little smarter about finding the abcl-contrib archive.

A more optimal solution might rank possible canidates rather than
picking the first one which satisfies any clause of the named
conditional.

File:
1 edited

Legend:

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

    r13303 r13672  
    99  (dolist (loader (java:dump-classpath))
    1010    (let ((abcl-jar
    11      (find-if (lambda (p) (and (equal (pathname-name p) "abcl")
     11     (find-if (lambda (p) (and
     12                                 (or (equal (pathname-name p) "abcl")
     13                                     (equal (pathname-name p)
     14                                            (format nil "abcl-~A"
     15                                                    (lisp-implementation-version))))
    1216             (equal (pathname-type p) "jar")))
    1317        (rest loader))))
Note: See TracChangeset for help on using the changeset viewer.