X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=make-host-2.sh;h=080f0485d90f3b74c7472c75d5afb637867f1348;hb=5ec8d0c1c8b7939818b75118b472fac1af554f9a;hp=303ec017c064d3ab52f074ba14e808a9b6b3f60b;hpb=7c07a6f965c51828d8f452b47e0620d8e6cf2959;p=sbcl.git

diff --git a/make-host-2.sh b/make-host-2.sh
index 303ec01..080f048 100644
--- a/make-host-2.sh
+++ b/make-host-2.sh
@@ -61,17 +61,14 @@ $SBCL_XC_HOST <<-'EOF' || exit 1
 	(defun in-target-cross-compilation-mode (fn)
 	  "Call FN with everything set up appropriately for cross-compiling
 	  a target file."
-	  (let (;; Life is simpler at genesis/cold-load time if we
-		;; needn't worry about byte-compiled code.
-		(sb!ext:*byte-compile-top-level* nil)
-		;; In order to increase microefficiency of the target Lisp, 
+	  (let (;; In order to increase microefficiency of the target Lisp, 
 		;; enable old CMU CL defined-function-types-never-change
 		;; optimizations. (ANSI says users aren't supposed to
 		;; redefine our functions anyway; and developers can
 		;; fend for themselves.)
 		#!-sb-fluid (sb!ext:*derive-function-types* t)
-		;; FIXME: *TOP-LEVEL-LAMBDA-MAX* should go away altogether.
-		(sb!c::*top-level-lambda-max* 1)
+		;; FIXME: *TOPLEVEL-LAMBDA-MAX* should go away altogether.
+		(sb!c::*toplevel-lambda-max* 1)
 		;; Let the target know that we're the cross-compiler.
 		(*features* (cons :sb-xc *features*))
 		;; We need to tweak the readtable..