X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=make-host-2.sh;fp=make-host-2.sh;h=1f1a1b9b2190a6f940a0377ca0e6aedab4081b9c;hb=dec94b039e8ec90baf21463df839a6181de606f6;hp=303ec017c064d3ab52f074ba14e808a9b6b3f60b;hpb=772659782631839f87fe059a45ecb28b933e298b;p=sbcl.git

diff --git a/make-host-2.sh b/make-host-2.sh
index 303ec01..1f1a1b9 100644
--- a/make-host-2.sh
+++ b/make-host-2.sh
@@ -61,10 +61,7 @@ $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