Changeset 14296 for trunk/abcl/src/org/armedbear/lisp/abcl-contrib.lisp
- Timestamp:
- 12/06/12 09:23:15 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/abcl-contrib.lisp
r14232 r14296 3 3 (require :asdf) 4 4 5 ;;; TODO possibly allow customization in system.lisp?6 5 (defun find-system-jar () 6 "Return the pathname of the system jar, one of `abcl.jar` or `abcl-m.n.p.jar` or `abcl-m.n.p-something.jar`." 7 7 (flet ((match-system-jar (p) 8 "Match `abcl.jar` or `abcl-1.0.1.jar` or `abcl-1.0.1-something.jar`"9 8 (and (pathnamep p) 10 9 (equal (pathname-type p) "jar") … … 28 27 29 28 (defun find-contrib (&key (verbose nil)) 30 "Attempt to find the ABCL contrib jar and add its contents to ASDF." 29 "Attempt to find the ABCL contrib jar and add its contents to ASDF. 30 Returns the pathname of the contrib if it can be found." 31 31 (unless *abcl-contrib* 32 32 (unless *abcl-jar* … … 51 51 (format verbose "~&Added ~A to ASDF.~&" asdf-directory)))) 52 52 *abcl-contrib*) 53 (format verbose"Failed to find abcl-contrib at '~A'." abcl-contrib))))))53 (error "Failed to find abcl-contrib at '~A'." abcl-contrib)))))) 54 54 55 55 (when (find-contrib :verbose t)
Note: See TracChangeset
for help on using the changeset viewer.