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

Diff of /src/tools/comcom.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.9 by ram, Tue May 29 16:33:35 1990 UTC revision 1.10 by ram, Wed Jun 20 20:55:55 1990 UTC
# Line 26  Line 26 
26    (comf "code:globals" :always-once t) ; For global variables.    (comf "code:globals" :always-once t) ; For global variables.
27    (comf "code:struct" :always-once t) ; For structures.    (comf "code:struct" :always-once t) ; For structures.
28    (comf "c:globals" :always-once t)    (comf "c:globals" :always-once t)
29    (comf "c:proclaim" :always-once t)) ; For COOKIE structure.    (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*)  (comf "c:type" :always-once *new-compile*)
34  (comf "c:rt/vm-type")  (comf "c:rt/vm-type")
# Line 38  Line 40 
40  (comf "c:knownfun" :always-once *new-compile*)  (comf "c:knownfun" :always-once *new-compile*)
41  (comf "c:vop" :always-once *new-compile*)  (comf "c:vop" :always-once *new-compile*)
42  (comf "c:alloc")  (comf "c:alloc")
43    (comf "c:knownfun")
44  (comf "c:fndb")  (comf "c:fndb")
45  (comf "c:main")  (comf "c:main")
46    (comf "c:vmdef" :load t :bootstrap-macros :both)
47    
48  #-new-compiler  #-new-compiler
49  (unless *new-compile*  (unless *new-compile*
# Line 59  Line 63 
63  (comf "c:envanal")  (comf "c:envanal")
64  (comf "c:rt/parms")  (comf "c:rt/parms")
65    
 (comf "c:vmdef" :load t :bootstrap-macros :both)  
   
66  (comf "c:tn" :bootstrap-macros :both)  (comf "c:tn" :bootstrap-macros :both)
67  (comf "c:bit-util")  (comf "c:bit-util")
68  (comf "c:life")  (comf "c:life")
# Line 80  Line 82 
82    
83  (when *new-compile*  (when *new-compile*
84    (comf "c:eval-comp")    (comf "c:eval-comp")
85    (comf "c:eval" :bootstrap-macros :both)    (comf "c:eval" :bootstrap-macros :both))
   (let ((c:*compile-time-define-macros* nil))  
     (comf "c:macros" :load t)))  
86    
87    
88  (comf "c:aliencomp")  (comf "c:aliencomp")

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

  ViewVC Help
Powered by ViewVC 1.1.5