source: trunk/source/lib/systems.lisp @ 14423

Last change on this file since 14423 was 14421, checked in by gb, 9 years ago

systems.lisp, compile-ccl.lisp, l1-boot-2.lisp: Compile and load
ACODE-REWRITE.

acode-rewrite.lisp: new, improved ... still not working, still not
complete.

nx.lisp: COMPILE-NAMED-FUNCTION optionally rewrites acode after generating
it (under control of *NX-REWRITE-ACODE*, for now.)

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 16.6 KB
Line 
1;;;-*-Mode: LISP; Package: CCL -*-
2;;;
3;;;   Copyright (C) 2009 Clozure Associates
4;;;   Copyright (C) 1994-2001 Digitool, Inc
5;;;   This file is part of Clozure CL. 
6;;;
7;;;   Clozure CL is licensed under the terms of the Lisp Lesser GNU Public
8;;;   License , known as the LLGPL and distributed with Clozure CL as the
9;;;   file "LICENSE".  The LLGPL consists of a preamble and the LGPL,
10;;;   which is distributed with Clozure CL as the file "LGPL".  Where these
11;;;   conflict, the preamble takes precedence. 
12;;;
13;;;   Clozure CL is referenced in the preamble as the "LIBRARY."
14;;;
15;;;   The LLGPL is also available online at
16;;;   http://opensource.franz.com/preamble.html
17
18(in-package "CCL")
19
20;;; module-name       binary                    (source . files-depends-on)
21;;; -----------       ------                    ---------------------------
22(defparameter *ccl-system*
23  '(
24    (level-1          "ccl:ccl;level-1"          ("ccl:l1;level-1.lisp"))
25    (runtime          "ccl:ccl;runtime"          ("ccl:l1;runtime.lisp"))
26    (level-1-test     "ccl:level-1-test"         ("ccl:l1;level-1-test.lisp"))
27    (l1-cl-package    "ccl:l1f;l1-cl-package"    ("ccl:l1;l1-cl-package.lisp"))
28    (l1-utils         "ccl:l1f;l1-utils"         ("ccl:l1;l1-utils.lisp"))
29    (l1-numbers       "ccl:l1f;l1-numbers"       ("ccl:l1;l1-numbers.lisp"))
30    (l1-init          "ccl:l1f;l1-init"          ("ccl:l1;l1-init.lisp"))
31    (version          "ccl:l1f;version"          ("ccl:l1;version.lisp"))
32    (l1-boot-1        "ccl:l1f;l1-boot-1"        ("ccl:l1;l1-boot-1.lisp"))
33    (l1-boot-2        "ccl:l1f;l1-boot-2"        ("ccl:l1;l1-boot-2.lisp"))
34    (l1-boot-3        "ccl:l1f;l1-boot-3"        ("ccl:l1;l1-boot-3.lisp"))
35    (l1-boot-lds      "ccl:l1f;l1-boot-lds"      ("ccl:l1;l1-boot-lds.lisp"))
36    (l1-files         "ccl:l1f;l1-files"         ("ccl:l1;l1-files.lisp"))
37    (l1-sort          "ccl:l1f;l1-sort"          ("ccl:l1;l1-sort.lisp"))
38    (l1-dcode         "ccl:l1f;l1-dcode"         ("ccl:l1;l1-dcode.lisp"))
39    (l1-clos-boot     "ccl:l1f;l1-clos-boot"    ("ccl:l1;l1-clos-boot.lisp"))
40    (l1-clos          "ccl:l1f;l1-clos"          ("ccl:l1;l1-clos.lisp"))
41    (l1-io            "ccl:l1f;l1-io"            ("ccl:l1;l1-io.lisp"))
42    (l1-unicode       "ccl:l1f;l1-unicode"       ("ccl:l1;l1-unicode.lisp"))
43   
44    (l1-streams       "ccl:l1f;l1-streams"       ("ccl:l1;l1-streams.lisp"))
45    (l1-events        "ccl:l1f;l1-events"        ("ccl:l1;l1-events.lisp"))
46    (ppc-trap-support "ccl:l1f;ppc-trap-support" ("ccl:l1;ppc-trap-support.lisp"))
47    (x86-trap-support "ccl:l1f;x86-trap-support" ("ccl:l1;x86-trap-support.lisp"))
48
49    (arm-trap-support "ccl:l1f;arm-trap-support" ("ccl:l1;arm-trap-support.lisp"))
50    (l1-format        "ccl:l1f;l1-format"        ("ccl:l1;l1-format.lisp"))
51    (l1-readloop      "ccl:l1f;l1-readloop"      ("ccl:l1;l1-readloop.lisp"))
52    (l1-readloop-lds  "ccl:l1f;l1-readloop-lds"  ("ccl:l1;l1-readloop-lds.lisp"))
53    (l1-reader        "ccl:l1f;l1-reader"        ("ccl:l1;l1-reader.lisp"))
54    (l1-error-system  "ccl:l1f;l1-error-system"  ("ccl:l1;l1-error-system.lisp"))
55    (ppc-error-signal "ccl:l1f;ppc-error-signal" ("ccl:l1;ppc-error-signal.lisp"))
56    (x86-error-signal "ccl:l1f;x86-error-signal" ("ccl:l1;x86-error-signal.lisp"))
57    (arm-error-signal "ccl:l1f;arm-error-signal" ("ccl:l1;arm-error-signal.lisp"))
58    (l1-error-signal  "ccl:l1f;l1-error-signal"  ("ccl:l1;l1-error-signal.lisp"))
59    (l1-aprims        "ccl:l1f;l1-aprims"        ("ccl:l1;l1-aprims.lisp"))
60    (l1-callbacks     "ccl:l1f;l1-callbacks"    ("ccl:l1;l1-callbacks.lisp"))
61    (ppc-callback-support "ccl:l1f;ppc-callback-support" ("ccl:l1;ppc-callback-support.lisp"))
62    (x86-callback-support "ccl:l1f;x86-callback-support" ("ccl:l1;x86-callback-support.lisp"))
63    (arm-callback-support "ccl:l1f;arm-callback-support" ("ccl:l1;arm-callback-support.lisp"))
64    (l1-sysio         "ccl:l1f;l1-sysio"         ("ccl:l1;l1-sysio.lisp"))
65    (l1-symhash       "ccl:l1f;l1-symhash"       ("ccl:l1;l1-symhash.lisp"))
66    (l1-pathnames     "ccl:l1f;l1-pathnames"     ("ccl:l1;l1-pathnames.lisp"))
67    (l1-lisp-threads  "ccl:l1f;l1-lisp-threads"  ("ccl:l1;l1-lisp-threads.lisp"))
68    (l1-sockets       "ccl:l1f;l1-sockets"       ("ccl:l1;l1-sockets.lisp"))
69    (ppc-threads-utils "ccl:l1f;ppc-threads-utils" ("ccl:l1;ppc-threads-utils.lisp"))
70    (x86-threads-utils "ccl:l1f;x86-threads-utils" ("ccl:l1;x86-threads-utils.lisp"))
71    (arm-threads-utils "ccl:l1f;arm-threads-utils" ("ccl:l1;arm-threads-utils.lisp"))
72    (l1-application   "ccl:l1f;l1-application"   ("ccl:l1;l1-application.lisp"))
73    (l1-processes     "ccl:l1f;l1-processes"     ("ccl:l1;l1-processes.lisp"))
74
75    (l1-typesys       "ccl:l1f;l1-typesys"       ("ccl:l1;l1-typesys.lisp"))
76    (sysutils         "ccl:l1f;sysutils"         ("ccl:l1;sysutils.lisp"))
77    (nx               "ccl:l1f;nx"               ("ccl:compiler;nx.lisp"
78                                                  "ccl:compiler;nx0.lisp"
79                                                  "ccl:compiler;lambda-list.lisp"
80                                                  "ccl:compiler;nx-basic.lisp"
81                                                  "ccl:compiler;nx1.lisp"))
82    (nxenv            "ccl:bin;nxenv"            ("ccl:compiler;nxenv.lisp"))
83    (nx2              "ccl:bin;nx2"              ("ccl:compiler;nx2.lisp"))
84    (acode-rewrite    "ccl:bin;acode-rewrite"    ("ccl:compiler;acode-rewrite.lisp"))
85    (nx-base-app      "ccl:l1f;nx-base-app"      ("ccl:compiler;nx-base-app.lisp"
86                                                  "ccl:compiler;lambda-list.lisp"))
87    (dll-node         "ccl:bin;dll-node"         ("ccl:compiler;dll-node.lisp"))
88    (ppc32-arch       "ccl:bin;ppc32-arch"       ("ccl:compiler;PPC;PPC32;ppc32-arch.lisp"))
89    (ppc-arch         "ccl:bin;ppc-arch"         ("ccl:compiler;PPC;ppc-arch.lisp"))
90    (x86-arch         "ccl:bin;x86-arch"         ("ccl:compiler;X86;x86-arch.lisp"))
91    (ppc64-arch       "ccl:bin;ppc64-arch"       ("ccl:compiler;PPC;PPC64;ppc64-arch.lisp"))
92    (x8632-arch       "ccl:bin;x8632-arch"       ("ccl:compiler;X86;X8632;x8632-arch.lisp"))
93    (x8664-arch       "ccl:bin;x8664-arch"       ("ccl:compiler;X86;X8664;x8664-arch.lisp"))
94    (arm-arch         "ccl:bin;arm-arch"         ("ccl:compiler;ARM;arm-arch.lisp"))
95    (arch             "ccl:bin;arch"             ("ccl:compiler;arch.lisp"))
96    (ppcenv           "ccl:bin;ppcenv"           ("ccl:lib;ppcenv.lisp"))
97    (x8664env         "ccl:bin;x8664env"         ("ccl:lib;x8664env.lisp"))
98    (x8632env         "ccl:bin;x8632env"         ("ccl:lib;x8632env.lisp"))
99    (armenv           "ccl:bin;armenv"           ("ccl:lib;armenv.lisp"))
100    (vreg             "ccl:bin;vreg"             ("ccl:compiler;vreg.lisp"))
101    (ppc-asm          "ccl:bin;ppc-asm"          ("ccl:compiler;PPC;ppc-asm.lisp"))
102    (x86-asm          "ccl:bin;x86-asm"          ("ccl:compiler;X86;x86-asm.lisp"))
103    (arm-asm          "ccl:bin;arm-asm"          ("ccl:compiler;ARM;arm-asm.lisp"))
104    (vinsn            "ccl:bin;vinsn"            ("ccl:compiler;vinsn.lisp"))
105    (ppc32-vinsns     "ccl:bin;ppc32-vinsns"     ("ccl:compiler;PPC;PPC32;ppc32-vinsns.lisp"))
106    (ppc64-vinsns     "ccl:bin;ppc64-vinsns"     ("ccl:compiler;PPC;PPC64;ppc64-vinsns.lisp"))
107    (x8632-vinsns     "ccl:bin;x8632-vinsns"     ("ccl:compiler;X86;X8632;x8632-vinsns.lisp"))
108    (x8664-vinsns     "ccl:bin;x8664-vinsns"     ("ccl:compiler;X86;X8664;x8664-vinsns.lisp"))
109    (arm-vinsns       "ccl:bin;arm-vinsns"       ("ccl:compiler;ARM;arm-vinsns.lisp"))
110    (reg              "ccl:bin;reg"              ("ccl:compiler;reg.lisp"))
111    (subprims         "ccl:bin;subprims"         ("ccl:compiler;subprims.lisp"))
112    (risc-lap         "ccl:bin;risc-lap"         ("ccl:compiler;risc-lap.lisp"))
113    (ppc-lap          "ccl:bin;ppc-lap"          ("ccl:compiler;PPC;ppc-lap.lisp"))
114    (x86-lap          "ccl:bin;x86-lap"          ("ccl:compiler;X86;x86-lap.lisp"))
115    (arm-lap          "ccl:bin;arm-lap"          ("ccl:compiler;ARM;arm-lap.lisp"))
116    (backend          "ccl:bin;backend"          ("ccl:compiler;backend.lisp"))
117    (ppc32-backend    "ccl:bin;ppc32-backend"    ("ccl:compiler;PPC;PPC32;ppc32-backend.lisp"))                   
118    (ppc64-backend    "ccl:bin;ppc64-backend"    ("ccl:compiler;PPC;PPC64;ppc64-backend.lisp"))
119    (ppc-backend      "ccl:bin;ppc-backend"      ("ccl:compiler;PPC;ppc-backend.lisp"))
120    (x8632-backend    "ccl:bin;x8632-backend"    ("ccl:compiler;X86;X8632;x8632-backend.lisp"))
121    (x8664-backend    "ccl:bin;x8664-backend"    ("ccl:compiler;X86;X8664;x8664-backend.lisp"))
122    (x86-backend      "ccl:bin;x86-backend"      ("ccl:compiler;X86;x86-backend.lisp"))
123    (arm-backend      "ccl:bin;arm-backend"      ("ccl:compiler;ARM;arm-backend.lisp"))
124    (ppc2             "ccl:bin;ppc2"             ("ccl:compiler;PPC;ppc2.lisp"))
125    (x862             "ccl:bin;x862"             ("ccl:compiler;X86;x862.lisp"))
126    (arm2             "ccl:bin;arm2"             ("ccl:compiler;ARM;arm2.lisp"))
127    (ppc-lapmacros    "ccl:bin;ppc-lapmacros"    ("ccl:compiler;PPC;ppc-lapmacros.lisp"))
128    (x86-lapmacros    "ccl:bin;x86-lapmacros"    ("ccl:compiler;X86;x86-lapmacros.lisp"))
129    (arm-lapmacros    "ccl:bin;arm-lapmacros"    ("ccl:compiler;ARM;arm-lapmacros.lisp"))
130    (ppc-disassemble  "ccl:bin;ppc-disassemble"  ("ccl:compiler;PPC;ppc-disassemble.lisp"))
131    (x86-disassemble  "ccl:bin;x86-disassemble"  ("ccl:compiler;X86;x86-disassemble.lisp"))
132    (arm-disassemble  "ccl:bin;arm-disassemble"  ("ccl:compiler;ARM;arm-disassemble.lisp"))
133    (xfasload         "ccl:xdump;xfasload"       ("ccl:xdump;xfasload.lisp"))
134    (xppcfasload      "ccl:xdump;xppcfasload"    ("ccl:xdump;xppcfasload.lisp"))
135    (xx8632fasload    "ccl:xdump;xx8632-fasload"  ("ccl:xdump;xx8632-fasload.lisp"))
136    (xx8664fasload    "ccl:xdump;xx8664-fasload"  ("ccl:xdump;xx8664-fasload.lisp"))
137    (xarmfasload      "ccl:xdump;xarm-fasload"   ("ccl:xdump;xarmfasload.lisp"))
138    (heap-image       "ccl:xdump;heap-image"     ("ccl:xdump;heap-image.lisp"))
139    (xsym             "ccl:xdump;xsym"           ("ccl:xdump;xsym.lisp"))
140    (number-macros "ccl:bin;number-macros"    ("ccl:lib;number-macros.lisp"))
141    (number-case-macro  "ccl:bin;number-case-macro" ("ccl:lib;number-case-macro.lisp"))
142    (optimizers       "ccl:bin;optimizers"       ("ccl:compiler;optimizers.lisp")) 
143    (backquote        "ccl:bin;backquote"        ("ccl:lib;backquote.lisp"))
144    (lispequ          "ccl:library;lispequ"      ("ccl:library;lispequ.lisp"))
145    (sysequ           "ccl:bin;sysequ"           ("ccl:lib;sysequ.lisp"))
146    (toolequ          "ccl:bin;toolequ"          ("ccl:lib;toolequ.lisp"))
147    (level-2          "ccl:bin;level-2"          ("ccl:lib;level-2.lisp"))
148    (macros           "ccl:bin;macros"           ("ccl:lib;macros.lisp"))
149    (defstruct-macros "ccl:bin;defstruct-macros" ("ccl:lib;defstruct-macros.lisp"))
150    (foreign-types    "ccl:bin;foreign-types"    ("ccl:lib;foreign-types.lisp"))
151    (ffi-linuxppc32   "ccl:bin;ffi-linuxppc32"   ("ccl:lib;ffi-linuxppc32.lisp"))
152    (ffi-darwinppc32  "ccl:bin;ffi-darwinppc32"  ("ccl:lib;ffi-darwinppc32.lisp"))
153    (ffi-darwinppc64  "ccl:bin;ffi-darwinppc64"  ("ccl:lib;ffi-darwinppc64.lisp"))
154    (ffi-linuxppc64   "ccl:bin;ffi-linuxppc64"   ("ccl:lib;ffi-linuxppc64.lisp"))
155    (ffi-darwinx8632  "ccl:bin;ffi-darwinx8632"  ("ccl:lib;ffi-darwinx8632.lisp"))
156    (ffi-linuxx8664   "ccl:bin;ffi-linuxx8664"   ("ccl:lib;ffi-linuxx8664.lisp"))
157    (ffi-darwinx8664  "ccl:bin;ffi-darwinx8664"  ("ccl:lib;ffi-darwinx8664.lisp"))
158    (ffi-freebsdx8664 "ccl:bin;ffi-freebsdx8664" ("ccl:lib;ffi-freebsdx8664.lisp"))
159    (ffi-solarisx8664 "ccl:bin;ffi-solarisx8664" ("ccl:lib;ffi-solarisx8664.lisp"))
160    (ffi-win64 "ccl:bin;ffi-win64" ("ccl:lib;ffi-win64.lisp"))
161    (ffi-linuxx8632  "ccl:bin;ffi-linuxx8632" ("ccl:lib;ffi-linuxx8632.lisp"))
162    (ffi-win32 "ccl:bin;ffi-win32" ("ccl:lib;ffi-win32.lisp"))
163    (ffi-solarisx8632 "ccl:bin;ffi-solarisx8632" ("ccl:lib;ffi-solarisx8632.lisp"))
164    (ffi-freebsdx8632 "ccl:bin;ffi-freebsdx8632" ("ccl:lib;ffi-freebsdx8632.lisp"))
165    (ffi-linuxarm     "ccl:bin;ffi-linuxarm"     ("ccl:lib;ffi-linuxarm.lisp"))
166    (ffi-darwinarm    "ccl:bin;ffi-darwinarm"    ("ccl:lib;ffi-darwinarm.lisp"))
167    (db-io            "ccl:bin;db-io"            ("ccl:lib;db-io.lisp"))
168    (hash             "ccl:bin;hash"             ("ccl:lib;hash.lisp"))
169    (nfcomp           "ccl:bin;nfcomp"           ("ccl:lib;nfcomp.lisp"))
170    (lists            "ccl:bin;lists"            ("ccl:lib;lists.lisp"))
171    (chars            "ccl:bin;chars"            ("ccl:lib;chars.lisp"))
172    (streams          "ccl:bin;streams"          ("ccl:lib;streams.lisp"))
173    (pathnames        "ccl:bin;pathnames"        ("ccl:lib;pathnames.lisp"))
174    (describe         "ccl:bin;describe"         ("ccl:lib;describe.lisp")) 
175    (mcl-compat       "ccl:bin;mcl-compat"       ("ccl:lib;mcl-compat.lisp"))
176    (backtrace        "ccl:bin;backtrace"        ("ccl:lib;backtrace.lisp"))
177    (ppc-backtrace    "ccl:bin;ppc-backtrace"    ("ccl:lib;ppc-backtrace.lisp"))
178    (x86-backtrace    "ccl:bin;x86-backtrace"    ("ccl:lib;x86-backtrace.lisp"))
179    (arm-backtrace    "ccl:bin;arm-backtrace"    ("ccl:lib;arm-backtrace.lisp"))
180    (x86-watch        "ccl:bin;x86-watch"        ("ccl:lib;x86-watch.lisp"))
181    (backtrace-lds    "ccl:bin;backtrace-lds"    ("ccl:lib;backtrace-lds.lisp"))
182    (apropos          "ccl:bin;apropos"          ("ccl:lib;apropos.lisp"))
183    (numbers          "ccl:bin;numbers"          ("ccl:lib;numbers.lisp"))
184    (dumplisp         "ccl:bin;dumplisp"         ("ccl:lib;dumplisp.lisp"))
185    (defstruct        "ccl:bin;defstruct"        ("ccl:lib;defstruct.lisp"
186                                                  "ccl:lib;defstruct-macros.lisp"))
187    (defstruct-lds    "ccl:bin;defstruct-lds"    ("ccl:lib;defstruct-lds.lisp"
188                                                  "ccl:lib;defstruct-macros.lisp"))
189    (method-combination
190     "ccl:bin;method-combination"
191     ("ccl:lib;method-combination.lisp"))
192    (encapsulate      "ccl:bin;encapsulate"      ("ccl:lib;encapsulate.lisp"))
193    (read             "ccl:bin;read"           ("ccl:lib;read.lisp"))
194    (misc             "ccl:bin;misc"           ("ccl:lib;misc.lisp"))
195    (arrays-fry       "ccl:bin;arrays-fry"     ("ccl:lib;arrays-fry.lisp"))
196    (sequences        "ccl:bin;sequences"      ("ccl:lib;sequences.lisp"))
197    (sort             "ccl:bin;sort"           ("ccl:lib;sort.lisp"))
198    (setf             "ccl:bin;setf"           ("ccl:lib;setf.lisp"))
199    (setf-runtime     "ccl:bin;setf-runtime"   ("ccl:lib;setf-runtime.lisp"))
200    (format           "ccl:bin;format"         ("ccl:lib;format.lisp"))
201    (case-error       "ccl:bin;case-error"     ("ccl:lib;case-error.lisp"))
202    (pprint           "ccl:bin;pprint"         ("ccl:lib;pprint.lisp"))
203    (time             "ccl:bin;time"           ("ccl:lib;time.lisp"))
204    (print-db         "ccl:bin;print-db"       ("ccl:lib;print-db.lisp"))
205; (eval             "ccl:bin;eval"           ("ccl:lib;eval.lisp"))
206
207    (arglist          "ccl:bin;arglist"          ("ccl:lib;arglist.lisp"))
208
209    (edit-callers          "ccl:bin;edit-callers"   ("ccl:lib;edit-callers.lisp"))
210    ;; (hash-cons        "ccl:library;hash-cons"    ("ccl:library;hash-cons.lisp"))
211    ;; (step             "ccl:bin;step"           ("ccl:lib;step.lisp"))
212    (ccl-export-syms  "ccl:bin;ccl-export-syms"  ("ccl:lib;ccl-export-syms.lisp"))
213    (systems          "ccl:bin;systems"        ("ccl:lib;systems.lisp"))
214    (compile-ccl      "ccl:bin;compile-ccl"    ("ccl:lib;compile-ccl.lisp"))
215    (ppc-init-ccl     "ccl:bin;ppc-init-ccl"   ("ccl:lib;ppc-init-ccl.lisp"))
216    (distrib-inits    "ccl:bin;distrib-inits"  ("ccl:lib;distrib-inits.lisp"))
217    (lisp-package     "ccl:library;lisp-package" ("ccl:library;lisp-package.lisp"))
218    ;; need to add swapping, xdump to CCL's *module-search-path*
219    (xdump            "ccl:xdump;xdump"          ("ccl:xdump;xdump.lisp"))
220    (fasload          "ccl:xdump;fasload"        ("ccl:xdump;fasload.lisp"))
221    (loop             "ccl:library;loop"         ("ccl:library;loop.lisp"))
222    (linux-files      "ccl:l1f;linux-files"      ("ccl:level-1;linux-files.lisp"))
223    (source-files     "ccl:bin;source-files"     ("ccl:lib;source-files.lisp"))
224    (cover            "ccl:bin;cover"            ("ccl:library;cover.lisp"))
225    (leaks            "ccl:bin;leaks"            ("ccl:library;leaks.lisp"))
226    (core-files       "ccl:bin;core-files"       ("ccl:library;core-files.lisp"))
227    (dominance        "ccl:bin;dominance"        ("ccl:library;dominance.lisp"))
228 
229    (prepare-mcl-environment "ccl:bin;prepare-mcl-environment" ("ccl:lib;prepare-mcl-environment.lisp"))
230    (defsystem        "ccl:tools;defsystem"      ("ccl:tools;defsystem.lisp"))
231    (asdf             "ccl:tools;asdf"      ("ccl:tools;asdf.lisp"))
232    (jp-encode        "ccl:bin;jp-encode"        ("ccl:library;jp-encode.lisp"))))
233
Note: See TracBrowser for help on using the repository browser.