From f078edb5fa7d75daf658c6bb1e6e1d3d3bed9cd3 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Fri, 26 Feb 1993 16:36:46 +0000 Subject: [PATCH] new structure mods. --- tools/worldbuild.lisp | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) diff --git a/tools/worldbuild.lisp b/tools/worldbuild.lisp index 6428538bc..dd1cbe5ec 100644 --- a/tools/worldbuild.lisp +++ b/tools/worldbuild.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/worldbuild.lisp,v 1.18 1993/02/26 08:59:59 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldbuild.lisp,v 1.19 1993/02/26 16:36:46 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -46,10 +46,10 @@ "target:assembly/x86/arith.assem" "target:assembly/x86/alloc.assem")) + "target:code/type-boot" "target:code/fdefinition" "target:code/eval" - "target:code/type-boot" "target:code/struct" "target:code/error" "target:code/typedefs" @@ -131,13 +131,11 @@ #+(and mach sparc) "/usr/tmp/kernel.core" #-(and mach sparc) "target:lisp/kernel.core") (setf *genesis-c-header-name* "target:lisp/internals.h") -(setf *genesis-map-name* nil) (setf *genesis-symbol-table* "target:lisp/lisp.nm") (when (boundp '*target-page-size*) - (locally - (declare (optimize (inhibit-warnings 3))) - (setf *target-page-size* - (c:backend-page-size c:*backend*)))) + (locally (declare (optimize (inhibit-warnings 3))) + (setf *target-page-size* + (c:backend-page-size c:*backend*)))) (genesis lisp-files) -- GitLab