/[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.53 by moore, Tue Aug 27 22:18:35 2002 UTC revision 1.53.2.1 by rtoy, Sat May 22 12:13:45 2004 UTC
# Line 1  Line 1 
1  ;;; -*- Package: User -*-  ;;; -*- Package: CL-USER -*-
2  ;;;  ;;;
3  ;;; **********************************************************************  ;;; **********************************************************************
4  ;;;  ;;;
# Line 7  Line 7 
7  ;;;  ;;;
8  ;;; **********************************************************************  ;;; **********************************************************************
9  ;;;  ;;;
10  (in-package "USER")  ;;; Loading this file causes the CMUCL compiler to be compiled.
11    ;;;
12    (in-package "CL-USER")
13    
14  #+bootstrap  #+bootstrap
15  (copy-packages (cons (c::backend-name c::*target-backend*) '("NEW-ASSEM" "C")))  (copy-packages (cons (c::backend-name c::*target-backend*) '("NEW-ASSEM" "C")))
# Line 21  Line 23 
23  (unless (find-package "OLD-C")  (unless (find-package "OLD-C")
24    (rename-package "C" "C" '("OLD-C")))    (rename-package "C" "C" '("OLD-C")))
25    
26  ;;; Import so that these types which appear in the globldb are the same...  ;;; Import so that these types which appear in the globaldb are the same...
27  #+bootstrap  #+bootstrap
28  (import '(old-c::approximate-function-type  (import '(old-c::approximate-function-type
29            old-c::function-info old-c::defstruct-description            old-c::function-info old-c::defstruct-description
# Line 49  Line 51 
51         (:external (declare (optimize-interface (safety 2) (debug 1))))))         (:external (declare (optimize-interface (safety 2) (debug 1))))))
52    
53    
54    (setf lisp::*enable-package-locked-errors* nil)
55    
56  (comf "target:compiler/macros"  (comf "target:compiler/macros"
57        :byte-compile #+bootstrap t #-bootstrap *byte-compile*)        :byte-compile #+bootstrap t #-bootstrap *byte-compile*)
58  (when *load-stuff*  (when *load-stuff*
# Line 223  Line 227 
227  (comf "target:compiler/codegen")  (comf "target:compiler/codegen")
228  (with-compilation-unit  (with-compilation-unit
229      (:optimize '(optimize (debug 2) (safety 2)))      (:optimize '(optimize (debug 2) (safety 2)))
230    (comf "target:compiler/debug" :byte-compile *byte-compile*))    (comf "target:compiler/debug" :byte-compile *byte-compile*)
231      (comf "target:compiler/xref" :byte-compile *byte-compile*))
232  #+nil  #+nil
233  (comf "target:compiler/statcount")  (comf "target:compiler/statcount")
234  (comf "target:compiler/dyncount")  (comf "target:compiler/dyncount")

Legend:
Removed from v.1.53  
changed lines
  Added in v.1.53.2.1

  ViewVC Help
Powered by ViewVC 1.1.5