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."
"Introspect runtime classpaths to find a loadable ABCL-CONTRIB."
(or (ignore-errors
(let ((system-jar (find-system-jar)))
(when system-jar
(probe-file (make-pathname
:defaults system-jar
:name (concatenate 'string
(subseq (pathname-name system-jar) 4)))))))
(lambda (u)
(probe-file (make-pathname
Supports Markdown
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