From 78baf08b00ec43847eae2cddaedda63b76676ad3 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Mon, 24 Feb 1992 05:52:43 +0000 Subject: [PATCH] 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. --- tools/worldload.lisp | 26 ++++++++++++++++---------- 1 file changed, 16 insertions(+), 10 deletions(-) diff --git a/tools/worldload.lisp b/tools/worldload.lisp index a04b791f2..a35a8d0d0 100644 --- a/tools/worldload.lisp +++ b/tools/worldload.lisp @@ -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. -- GitLab