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

abcl-contrib: Fix whitespace.

parent bf90b9ca
......@@ -2,7 +2,9 @@
(require :asdf)
(defconstant +get-classloader+ (java:jmethod "java.lang.Class" "getClassLoader"))
(defconstant +get-classloader+
(java:jmethod "java.lang.Class" "getClassLoader"))
(defun boot-classloader ()
(let ((boot-class (java:jclass "org.armedbear.lisp.Main")))
(java:jcall +get-classloader+ boot-class)))
......@@ -53,7 +55,7 @@ Used to determine relative pathname to find 'abcl-contrib.jar'."
(defvar *abcl-contrib* nil
"Pathname of the ABCL contrib.
Initialized via SYSTEM:FIND-CONTRIB")
Initialized via SYSTEM:FIND-CONTRIB.")
(defparameter *verbose* t)
......@@ -85,8 +87,8 @@ Returns the pathname of the contrib if it can be found."
(defun find-contrib ()
"Introspect runtime classpaths to find a loadable ABCL-CONTRIB."
(or
(ignore-errors (when (find-system-jar)
(or (ignore-errors
(when (find-system-jar)
(probe-file
(make-pathname :defaults (find-system-jar)
:name "abcl-contrib"))))
......
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