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

Contents of /src/tools/comcom.lisp

Parent Directory Parent Directory | Revision Log Revision Log


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

  ViewVC Help
Powered by ViewVC 1.1.5