source: trunk/abcl/contrib/abcl-asdf/abcl-asdf.asd @ 14236

Last change on this file since 14236 was 14236, checked in by Mark Evenson, 8 years ago

abcl-asdf: Enable bypassing of loading from network if a given class already exists.

An ASDF:MVN component can now optionally specify a CLASSNAME that if
able to be found in the current jvm process, inhbits further loading
from the network.

An ASDF:MVN component may also optionally specify an ALTERNATE-URI
that will be added to the current jvm classpath if Maven cannot be
invoked. Most jvm implementations won't access such jar archives from
the network by default, so this is an intermediate step before
actually writing the code to download the jar to the local filesystem
to then be added.

Refresh documentation in README.markdown.

File size: 1.4 KB
Line 
1;;;; -*- Mode: LISP -*-
2
3(asdf:defsystem :abcl-asdf
4  :author "Mark Evenson"
5  :version "0.9.2"
6  :depends-on (jss)
7  :components
8  ((:module packages :pathname ""
9            :components
10            ((:file "packages")))
11   (:module base :pathname ""
12            :components
13            ((:file "abcl-asdf")
14             (:file "asdf-jar"
15                    :depends-on ("abcl-asdf"))
16             (:file "maven-embedder"
17                    :depends-on ("abcl-asdf" "asdf-jar")))
18            :depends-on (packages))))
19
20(asdf:defsystem :abcl-asdf-test
21  :author "Mark Evenson"
22  :defsystem-depends-on (abcl abcl-test-lisp abcl-asdf)
23  :components ((:module tests :serial t
24                        :components ((:file "example")
25                                     (:file "maven")
26                                     (:file "test")))))
27
28#|
29(defmethod perform ((o test-op) (c (eql (find-system 'abcl-asdf-test))))
30  (funcall (intern (symbol-name 'run) 'abcl-asdf-test)))
31
32(defmethod perform ((o test-op) (c (eql (find-system 'abcl-asdf))))
33  (asdf:load-system :abcl-asdf-test))
34  (asdf:test-system :abcl-asdf-test))
35
36 ;;; FIXME
37(defmethod perform ((o test-op) (c (eql (find-system 'abcl-asdf))))
38   "Invoke tests with (asdf:test-system 'abcl-asdf)."
39   (asdf:load-system 'abcl)
40   (asdf:load-system 'abcl-test-lisp)
41   (asdf:load-system 'abcl-asdf-test)
42   (funcall (intern (symbol-name 'run) 'abcl-asdf-test)))
43|#
Note: See TracBrowser for help on using the repository browser.