Skip to content
Snippets Groups Projects
Commit 78baf08b authored by wlott's avatar wlott
Browse files

Hacked over the stuff to load the compiler. The backend is now put in

it's own compact-info-env so we can more easily build cross compilers.
parent e870c794
No related branches found
No related tags found
No related merge requests found
......@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldload.lisp,v 1.41 1992/02/14 23:46:39 wlott Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldload.lisp,v 1.42 1992/02/24 05:52:43 wlott Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -99,23 +99,29 @@
;;; Load the compiler.
#-no-compiler
(load "c:loadcom.lisp")
#-no-compiler
;;; Depends on backend definition for object format info...
(load "code:room")
#-no-compiler
(set 'compiler-version
(concatenate 'string compiler-version
"(" *lisp-implementation-version* ")"))
#-no-compiler
(progn
(load "c:loadcom.lisp")
(set 'compiler-version
(concatenate 'string compiler-version
"(" *lisp-implementation-version* ")"))
(setq *info-environment*
(list* (make-info-environment)
(compact-info-environment (first *info-environment*)
:name "Compiler")
(rest *info-environment*)))
(load "c:loadbackend.lisp")
(setq *info-environment*
(list* (make-info-environment)
(compact-info-environment
(first *info-environment*)
(concatenate 'string (c:backend-name c:*backend*) " backend"))
(rest *info-environment*)))
(purify :root-structures '(compile-file)))
#-no-compiler
;;; Depends on backend definition for object format info...
(load "code:room")
;;; The pretty printer is part of the kernel core, but we can't turn in on
;;; until after the compiler is loaded because it compiles some lambdas
;;; to help with the dispatching.
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment