source: trunk/abcl/abcl.asd @ 13336

Last change on this file since 13336 was 13336, checked in by Mark Evenson, 10 years ago

Create form of SYSTEM:ZIP that uses a hashtable to map files to entries.

SYSTEM:ZIP PATH HASHTABLE now creates entries in a zipfile at PATH
whose entries are the contents of for each (KEY VALUE) in HASHTABLE
for which KEY refers to an object on the filesystem and VALUE is the
location in the zip archive.

Introduce Java interfaces in org.armedbear.lisp.protocol to start
encapsulating behavior of Java system. By retroactively adding
markers to the object hierarchy rooted on LispObject we gain the
ability to have our JVM code optionally work with interfaces but we
leave the core dispatch functions alone for speed.

  • Property svn:keywords set to Id
File size: 4.7 KB
1;;; -*- Mode: LISP; Syntax: COMMON-LISP -*-
2;;; $Id: abcl.asd 13336 2011-06-16 14:56:53Z mevenson $
4(require 'asdf)
5(in-package :asdf)
7;;; Wrapper for all ABCL ASDF definitions.
8(defsystem :abcl :version "0.6.0")
10;;;  Run via (asdf:operate 'asdf:test-op :abcl :force t)
11(defmethod perform ((o test-op) (c (eql (find-system :abcl))))
12  (load-system (find-system :abcl-test-lisp))
13  (operate 'test-op :abcl-test-lisp))
15;;; Test ABCL with the Lisp unit tests collected in "test/lisp/abcl"
17;;; We guard with #+abcl for tests that other Lisps cannot load.  This
18;;; could be possibly be done at finer granularity in the files
19;;; themselves.
20(defsystem :abcl-test-lisp :version "1.2" :components
21     ((:module abcl-rt
22                     :pathname "test/lisp/abcl/" :serial t :components
23         ((:file "rt-package")
24                      (:file "rt")
25                      (:file "test-utilities")))
26      (:module package  :depends-on (abcl-rt)
27         :pathname "test/lisp/abcl/" :components
28         ((:file "package")))
29            (:module test :depends-on (package)
30         :pathname "test/lisp/abcl/" :components
31                     ((:file "utilities")
32                      (:file "compiler-tests")
33                      (:file "condition-tests")
34                      #+abcl
35                      (:file "class-file")
36                      #+abcl
37                      (:file "metaclass")
38                      #+abcl
39                      (:file "mop-tests-setup")
40                      #+abcl
41                      (:file "mop-tests" :depends-on
42                             ("mop-tests-setup"))
43                      (:file "file-system-tests")
44                      #+abcl
45                      (:file "jar-pathname" :depends-on
46                             ("utilities" "pathname-tests" "file-system-tests"))
47                      #+abcl
48                      (:file "url-pathname")
49                      (:file "math-tests" :depends-on
50                             ("compiler-tests"))
51                      (:file "misc-tests")
52                      (:file "latin1-tests")
53                      #+abcl
54                      (:file "bugs" :depends-on
55                             ("file-system-tests"))
56                      (:file "wild-pathnames" :depends-on
57                             ("file-system-tests"))
58                      #+abcl
59                      (:file "weak-hash-tables")
60                      #+abcl
61                      (:file "zip")
62                      #+abcl
63                      (:file "pathname-tests" :depends-on
64                             ("utilities"))))))
66(defmethod perform ((o test-op) (c (eql (find-system 'abcl-test-lisp))))
67   "Invoke tests with (asdf:oos 'asdf:test-op :abcl-test-lisp)."
68   (funcall (intern (symbol-name 'run) :abcl.test.lisp)))
70;;; Test ABCL with the interpreted ANSI tests
71(defsystem :ansi-interpreted :version "1.1"
72           :components
73           ((:module ansi-tests :pathname "test/lisp/ansi/" :components
74         ((:file "package")
75                (:file "parse-ansi-errors" :depends-on ("package"))))))
76(defmethod perform :before ((o test-op) (c (eql (find-system :ansi-interpreted))))
77  (load-system  :ansi-interpreted))
78(defmethod perform ((o test-op) (c (eql (find-system :ansi-interpreted))))
79  (funcall (intern (symbol-name 'run) :abcl.test.ansi)
80     :compile-tests nil))
82;;; Test ABCL with the compiled ANSI tests
83(defsystem :ansi-compiled :version "1.1"
84           :components
85           ((:module ansi-tests :pathname "test/lisp/ansi/" :components
86         ((:file "package")
87                (:file "parse-ansi-errors" :depends-on ("package"))))))
88(defmethod perform :before ((o test-op) (c (eql (find-system :ansi-compiled))))
89  (load-system :ansi-compiled))
90(defmethod perform ((o test-op) (c (eql (find-system :ansi-compiled))))
91  (funcall (intern (symbol-name 'run) :abcl.test.ansi)
92     :compile-tests t))
94;;; Test ABCL with CL-BENCH
95(defsystem :cl-bench :components
96           ((:module cl-bench-package :pathname "../cl-bench/"
97                    :components ((:file "defpackage")))
98            (:module cl-bench-wrapper :pathname "test/lisp/cl-bench/"
99                     :depends-on (cl-bench-package) :components
100                     ((:file "wrapper")))))
101(defmethod perform :before ((o test-op) (c (eql (find-system :cl-bench))))
102  (load-system :cl-bench))
103(defmethod perform ((o test-op) (c (eql (find-system :cl-bench))))
104  (funcall (intern (symbol-name 'run)
106;;; Build ABCL from a Lisp.
107;;; aka the "Lisp-hosted build system"
108;;; Works for: abcl, sbcl, clisp, cmu, lispworks, allegro, openmcl
109(defsystem :build-abcl :components
110     ((:module build :pathname ""  :components
111         ((:file "build-abcl")
112          (:file "customizations" :depends-on ("build-abcl"))))))
Note: See TracBrowser for help on using the repository browser.