diff --git a/compiler/loadcom.lisp b/compiler/loadcom.lisp index 0e9e9bd3004594db8b6d3f66c31db9334036593e..5db3f6e2264ed315de4eaabcb68e6950fc7377af 100644 --- a/compiler/loadcom.lisp +++ b/compiler/loadcom.lisp @@ -1,16 +1,21 @@ -;;; -*- Package: C -*- +;;; -*- Package: C; Log: C.Log -*- ;;; -;;; Load up the compiler. +;;; ********************************************************************** +;;; This code was written as part of the CMU Common Lisp project at +;;; Carnegie Mellon University, and has been placed in the public domain. +;;; If you want to use this code or any part of CMU Common Lisp, please contact +;;; Scott Fahlman or slisp-group@cs.cmu.edu. +;;; +(ext:file-comment + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/loadcom.lisp,v 1.36 1992/02/24 05:51:52 wlott Exp $") +;;; +;;; ********************************************************************** +;;; +;;; Load up the compiler. ;;; (in-package "C") -(setf *load-verbose* t) - -(load "vm:vm-macs") (load "c:backend") -#-rt (load "vm:parms") -#+rt (load "vm:params") -(load "vm:objdef") (load "c:macros") (load "c:sset") (load "c:node") @@ -18,7 +23,6 @@ (load "c:ctype") (load "c:knownfun") (load "c:fndb") -(load "vm:vm-fndb") (load "c:ir1util") (load "c:ir1tran") (load "c:ir1final") @@ -26,7 +30,6 @@ (load "c:array-tran") (load "c:seqtran") (load "c:typetran") -(load "vm:vm-typetran") (load "c:float-tran") (load "c:saptran") (load "c:locall") @@ -56,52 +59,11 @@ (load "c:assembler") (load "c:assem-opt") (load "assem:assemfile") -(load "assem:support") -(load "vm:macros") -(load "vm:utils") (load "c:aliencomp") (load "c:ltv") (load "c:debug-dump") (load "c:dump") -(load "vm:core") - -(load "vm:vm") -(load "vm:insts") -#-rt (load "vm:primtype") -(load "vm:move") -(load "vm:sap") -(load "vm:system") -(load "vm:char") -#-rt (load "vm:float") -#+(and rt afpa) (load "vm:afpa") -#+(and rt (not afpa)) (load "vm:mc68881") - -(load "vm:memory") -(load "vm:static-fn") -(load "vm:arith") -(load "vm:cell") -(load "vm:subprim") -(load "vm:debug") -(load "vm:c-call") -(load "vm:print") -(load "vm:alloc") -(load "vm:call") -(load "vm:nlx") -(load "vm:values") -(load "vm:array") -(load "vm:pred") -(load "vm:type-vops") -(load "vm:vm-tran") - -(load "assem:assem-rtns") -#-rt (load "assem:bit-bash") -(load "assem:array") -(load "assem:arith") -(load "assem:alloc") - -(load "c:pseudo-vops") -(load "vm:vm-tran") (load "c:debug") (load "c:assem-check") (load "c:copyprop") @@ -109,10 +71,3 @@ (load "c:eval-comp") (load "c:eval") - -#+small -;;; -;;; If we want a small core, blow away the meta-compile time VOP info. -(setf (backend-parsed-vops *backend*) (make-hash-table :test #'eq)) - -(%proclaim '(optimize (speed 1) (safety 1)))