projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.pre7.86:
[sbcl.git]
/
make-host-2.sh
diff --git
a/make-host-2.sh
b/make-host-2.sh
index
303ec01
..
080f048
100644
(file)
--- 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."
(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)
;; 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..
;; Let the target know that we're the cross-compiler.
(*features* (cons :sb-xc *features*))
;; We need to tweak the readtable..