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

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
parent f7489b42
......@@ -8,7 +8,11 @@
(defun find-system-jar ()
(dolist (loader (java:dump-classpath))
(let ((abcl-jar
(find-if (lambda (p) (and (equal (pathname-name p) "abcl")
(find-if (lambda (p) (and
(or (equal (pathname-name p) "abcl")
(equal (pathname-name p)
(format nil "abcl-~A"
(equal (pathname-type p) "jar")))
(rest loader))))
(when abcl-jar
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