Ignore:
Timestamp:
12/06/12 09:26:37 (8 years ago)
Author:
Mark Evenson
Message:

Backport r14296.

Constrain the logic for when CL:REQUIRE pushes symbols to CL:*MODULES*.

A REQUIRE of ABCL-CONTRIB for an instance of the implementation that
cannot locate the contrib binary artifact as being in the same
directory as the location of the ABCL system jar by
SYS:FIND-SYSTEM-JAR now raises an error.

Fixes #275.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/1.1.x/src/org/armedbear/lisp/abcl-contrib.lisp

    r14232 r14297  
    33(require :asdf)
    44
    5 ;;; TODO possibly allow customization in system.lisp?
    65(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`."
    77  (flet ((match-system-jar (p)
    8            "Match `abcl.jar` or `abcl-1.0.1.jar` or `abcl-1.0.1-something.jar`"
    98           (and (pathnamep p)
    109                (equal (pathname-type p) "jar")
     
    2827
    2928(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.
     30Returns the pathname of the contrib if it can be found."
    3131  (unless *abcl-contrib*
    3232    (unless *abcl-jar*
     
    5151                    (format verbose "~&Added ~A to ASDF.~&" asdf-directory))))
    5252              *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))))))
    5454
    5555(when (find-contrib :verbose t)
Note: See TracChangeset for help on using the changeset viewer.