Commit fcc47120 authored by mevenson@1c010e3e-69d0-11dd-93a8-456734b0d56f's avatar mevenson@1c010e3e-69d0-11dd-93a8-456734b0d56f
Browse files

Find contrib based on system jar name.

From Olof-Joachim Frahm.
parent febfa950
...@@ -97,6 +97,14 @@ Returns the pathname of the contrib if it can be found." ...@@ -97,6 +97,14 @@ Returns the pathname of the contrib if it can be found."
"Introspect runtime classpaths to find a loadable ABCL-CONTRIB." "Introspect runtime classpaths to find a loadable ABCL-CONTRIB."
(or (ignore-errors (or (ignore-errors
(find-contrib-jar)) (find-contrib-jar))
(ignore-errors
(let ((system-jar (find-system-jar)))
(when system-jar
(probe-file (make-pathname
:defaults system-jar
:name (concatenate 'string
"abcl-contrib"
(subseq (pathname-name system-jar) 4)))))))
(some (some
(lambda (u) (lambda (u)
(probe-file (make-pathname (probe-file (make-pathname
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment