/[cmucl]/src/tools/comcom.lisp
ViewVC logotype

Contents of /src/tools/comcom.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.6 - (hide annotations)
Sat Mar 10 16:53:56 1990 UTC (24 years, 1 month ago) by ram
Branch: MAIN
Changes since 1.5: +23 -23 lines
Changed to new logical names.
1 wlott 1.1 ;;; -*- Package: User -*-
2     ;;;
3     (in-package "USER")
4    
5     (with-compiler-log-file ("c:compile-compiler.log")
6    
7     (unless *new-compile*
8 ram 1.6 (comf "code:fdefinition")
9     (load "code:extensions.lisp")
10 wlott 1.1 (comf "c:globaldb" :load t)
11     (unless (boundp 'ext::*info-environment*)
12     (c::globaldb-init))
13    
14     (comf "c:patch")
15    
16 ram 1.6 (comf "code:macros" :load t)
17     (comf "code:extensions" :bootstrap-macros :both)
18     (load "code:extensions.fasl")
19     (comf "code:struct" :load t)
20 wlott 1.1 (comf "c:macros" :load t :bootstrap-macros :both))
21    
22     (when *new-compile*
23 ram 1.6 (comf "code:globals" :always-once t) ; For global variables.
24     (comf "code:struct" :always-once t) ; For structures.
25 wlott 1.1 (comf "c:globals" :always-once t)
26     (comf "c:proclaim" :always-once t)) ; For COOKIE structure.
27    
28     (comf "c:type" :always-once *new-compile*)
29     (comf "c:rt/vm-type")
30     (comf "c:type-init")
31     (comf "c:sset" :always-once *new-compile*)
32     (comf "c:node" :always-once *new-compile*)
33     (comf "c:ctype")
34     #-new-compiler
35     (comf "c:knownfun" :always-once *new-compile*)
36     (comf "c:fndb")
37     (comf "c:main")
38    
39     #-new-compiler
40     (unless *new-compile*
41     (comf "c:proclaim" :load t))
42    
43     (comf "c:ir1tran")
44     (comf "c:ir1util" :bootstrap-macros :both)
45     (comf "c:ir1opt")
46     (comf "c:ir1final")
47     (comf "c:srctran")
48     (comf "c:seqtran")
49     (comf "c:typetran")
50     (comf "c:locall")
51     (comf "c:dfo")
52     (comf "c:checkgen")
53     (comf "c:constraint")
54     (comf "c:envanal")
55     (comf "c:rt/parms")
56     (comf "c:vop" :always-once *new-compile*)
57    
58 ram 1.4 (comf "c:vmdef" :load t :bootstrap-macros :both)
59 wlott 1.1
60     (comf "c:tn" :bootstrap-macros :both)
61     (comf "c:bit-util")
62     (comf "c:life")
63    
64     (comf "c:assembler"
65     :load t
66     :bootstrap-macros :both
67     :always-once *new-compile*)
68    
69 ram 1.6 (comf "code:debug-info"
70 wlott 1.1 :load t
71     :bootstrap-macros :both
72     :always-once *new-compile*)
73    
74 ram 1.4 (comf "c:rt/assem-insts" :load t)
75 wlott 1.1
76 ram 1.6
77 ram 1.4 (when *new-compile*
78     (comf "c:eval-comp")
79     (comf "c:eval" :bootstrap-macros :both)
80     (let ((c:*compile-time-define-macros* nil))
81     (comf "c:macros" :load t)))
82    
83    
84 wlott 1.1 (comf "c:aliencomp")
85     (comf "c:debug-dump")
86    
87     (unless *new-compile*
88 ram 1.6 (comf "code:constants" :load t :proceed t)
89 wlott 1.1 (comf "assem:rompconst" :load t :proceed t)
90     (comf "assem:assembler")
91     (comf "c:fop"))
92    
93 ram 1.4 (comf "c:rt/assem-macs" :load t :bootstrap-macros :both)
94 wlott 1.1
95     (comf "c:rt/dump")
96    
97     (when *new-compile*
98     (comf "c:rt/core"))
99    
100     (comf "c:rt/vm" :always-once *new-compile*)
101 ram 1.5 (comf "c:rt/miscop")
102 wlott 1.1 (comf "c:rt/move")
103     (comf "c:rt/subprim")
104     (comf "c:rt/values")
105     (comf "c:rt/memory")
106     (comf "c:rt/cell")
107     (comf "c:rt/call")
108     (comf "c:rt/nlx")
109     (comf "c:rt/print")
110     (comf "c:rt/array")
111     (comf "c:rt/pred")
112     (comf "c:rt/type-vops")
113     (comf "c:rt/arith")
114     (comf "c:rt/system")
115     (comf "c:rt/char")
116     (comf "c:gtn")
117     (comf "c:ltn")
118     (comf "c:stack")
119     (comf "c:control")
120     (comf "c:entry")
121     (comf "c:ir2tran")
122 ram 1.5 (comf "c:rt/vm-tran")
123 wlott 1.1 (comf "c:pack")
124     (comf "c:codegen")
125     (comf "c:debug")
126    
127 ram 1.3 #-new-compiler
128     (unless *new-compile*
129 wlott 1.1 (comf "c:rt/genesis"))
130 ram 1.3
131     #+new-compiler
132     (comf "c:rt/genesis")
133 wlott 1.1
134     (unless *new-compile*
135 ram 1.6 (comf "code:defstruct")
136     (comf "code:error")
137     (comf "code:defrecord")
138     (comf "code:defmacro")
139     (comf "code:alieneval")
140     (comf "code:c-call")
141     (comf "code:salterror")
142     (comf "code:sysmacs")
143     (comf "code:machdef")
144     (comf "code:mmlispdefs")
145     (comf "icode:machdefs")
146     (comf "icode:netnamedefs")
147 wlott 1.1 (comf "c:globaldb" :output-file "c:boot-globaldb.fasl"
148     :bootstrap-macros :both))
149    
150    
151     ); with-compiler-error-log

  ViewVC Help
Powered by ViewVC 1.1.5