Changeset 14657


Ignore:
Timestamp:
03/24/14 11:46:00 (3 years ago)
Author:
mevenson
Message:

Find contrib based on system jar name.

From Olof-Joachim Frahm.

File:
1 edited

Legend:

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

    r14656 r14657  
    9898  (or (ignore-errors
    9999        (find-contrib-jar))
     100      (ignore-errors
     101        (let ((system-jar (find-system-jar)))
     102          (when system-jar
     103            (probe-file (make-pathname
     104                         :defaults system-jar
     105                         :name (concatenate 'string
     106                                            "abcl-contrib"
     107                                            (subseq (pathname-name system-jar) 4)))))))
    100108      (some
    101109       (lambda (u)
Note: See TracChangeset for help on using the changeset viewer.