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

Contents of /src/tools/comcom.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.11 - (hide 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 wlott 1.1 ;;; -*- Package: User -*-
2     ;;;
3     (in-package "USER")
4    
5 ram 1.9 (c::%proclaim '(optimize (speed 2) (space 2) (c::brevity 2)))
6     (setq *print-pretty* nil)
7    
8 ram 1.11 ;(with-compiler-log-file ("c:compile-compiler.log")
9     #+nil
10 wlott 1.1 (unless *new-compile*
11 ram 1.6 (comf "code:fdefinition")
12     (load "code:extensions.lisp")
13 wlott 1.1 (comf "c:globaldb" :load t)
14     (unless (boundp 'ext::*info-environment*)
15     (c::globaldb-init))
16    
17     (comf "c:patch")
18    
19 ram 1.6 (comf "code:macros" :load t)
20     (comf "code:extensions" :bootstrap-macros :both)
21     (load "code:extensions.fasl")
22     (comf "code:struct" :load t)
23 wlott 1.1 (comf "c:macros" :load t :bootstrap-macros :both))
24    
25 ram 1.11 ;(when *new-compile*
26 ram 1.6 (comf "code:globals" :always-once t) ; For global variables.
27     (comf "code:struct" :always-once t) ; For structures.
28 wlott 1.1 (comf "c:globals" :always-once t)
29 ram 1.10 (comf "c:proclaim" :always-once t) ; For COOKIE structure.
30     (let ((c:*compile-time-define-macros* nil))
31     (comf "c:macros" :load t)))
32 wlott 1.1
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 ram 1.8 (comf "c:vop" :always-once *new-compile*)
42     (comf "c:alloc")
43 ram 1.10 (comf "c:knownfun")
44 wlott 1.1 (comf "c:fndb")
45     (comf "c:main")
46 ram 1.10 (comf "c:vmdef" :load t :bootstrap-macros :both)
47 wlott 1.1
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 ram 1.6 (comf "code:debug-info"
76 wlott 1.1 :load t
77     :bootstrap-macros :both
78     :always-once *new-compile*)
79    
80 ram 1.4 (comf "c:rt/assem-insts" :load t)
81 wlott 1.1
82 ram 1.6
83 ram 1.11 ;(when *new-compile*
84 ram 1.4 (comf "c:eval-comp")
85 ram 1.10 (comf "c:eval" :bootstrap-macros :both))
86 ram 1.4
87    
88 wlott 1.1 (comf "c:aliencomp")
89     (comf "c:debug-dump")
90    
91 ram 1.11 #+nil
92 wlott 1.1 (unless *new-compile*
93 ram 1.6 (comf "code:constants" :load t :proceed t)
94 wlott 1.1 (comf "assem:rompconst" :load t :proceed t)
95     (comf "assem:assembler")
96     (comf "c:fop"))
97    
98 ram 1.4 (comf "c:rt/assem-macs" :load t :bootstrap-macros :both)
99 wlott 1.1
100     (comf "c:rt/dump")
101    
102 ram 1.11 ;(when *new-compile*
103 wlott 1.1 (comf "c:rt/core"))
104    
105     (comf "c:rt/vm" :always-once *new-compile*)
106 ram 1.7 (comf "c:rt/move")
107     (comf "c:rt/char")
108 ram 1.5 (comf "c:rt/miscop")
109 wlott 1.1 (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 ram 1.7 (comf "c:pseudo-vops")
122 wlott 1.1 (comf "c:gtn")
123     (comf "c:ltn")
124     (comf "c:stack")
125     (comf "c:control")
126     (comf "c:entry")
127     (comf "c:ir2tran")
128 ram 1.7 (comf "c:represent")
129 ram 1.5 (comf "c:rt/vm-tran")
130 wlott 1.1 (comf "c:pack")
131     (comf "c:codegen")
132     (comf "c:debug")
133    
134 ram 1.3 #-new-compiler
135     (unless *new-compile*
136 wlott 1.1 (comf "c:rt/genesis"))
137 ram 1.3
138     #+new-compiler
139     (comf "c:rt/genesis")
140 wlott 1.1
141 ram 1.11 #+nil
142 wlott 1.1 (unless *new-compile*
143 ram 1.6 (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 wlott 1.1 (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