projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.45.10: tools-for-build/Makefile path fixes
[sbcl.git]
/
make-host-2.lisp
diff --git
a/make-host-2.lisp
b/make-host-2.lisp
index
7e66112
..
5af5a98
100644
(file)
--- a/
make-host-2.lisp
+++ b/
make-host-2.lisp
@@
-27,11
+27,7
@@
;; sbcl-internal optimization declarations:
;;
;; never insert stepper conditions
;; sbcl-internal optimization declarations:
;;
;; never insert stepper conditions
- (sb!c:insert-step-conditions 0)
- ;; always stack-allocate if requested
- (sb!c::stack-allocate-dynamic-extent 3)
- ;; ...even value cells!
- (sb!c::stack-allocate-value-cells 3)))))
+ (sb!c:insert-step-conditions 0)))))
(compile 'proclaim-target-optimization)
(defun in-target-cross-compilation-mode (fun)
(compile 'proclaim-target-optimization)
(defun in-target-cross-compilation-mode (fun)
@@
-54,6
+50,9
@@
;; toplevel forms in the xcompiler backq.lisp file?
(set-macro-character #\` #'sb!impl::backquote-macro)
(set-macro-character #\, #'sb!impl::comma-macro)
;; toplevel forms in the xcompiler backq.lisp file?
(set-macro-character #\` #'sb!impl::backquote-macro)
(set-macro-character #\, #'sb!impl::comma-macro)
+
+ (set-dispatch-macro-character #\# #\+ #'she-reader)
+ (set-dispatch-macro-character #\# #\- #'she-reader)
;; Control optimization policy.
(proclaim-target-optimization)
;; Specify where target machinery lives.
;; Control optimization policy.
(proclaim-target-optimization)
;; Specify where target machinery lives.
@@
-61,6
+60,10
@@
(funcall fun))))
(compile 'in-target-cross-compilation-mode)
(funcall fun))))
(compile 'in-target-cross-compilation-mode)
+
+;; Supress function/macro redefinition warnings under clisp.
+#+clisp (setf custom:*suppress-check-redefinition* t)
+
(setf *target-compile-file* #'sb-xc:compile-file)
(setf *target-assemble-file* #'sb!c:assemble-file)
(setf *in-target-compilation-mode-fn* #'in-target-cross-compilation-mode)
(setf *target-compile-file* #'sb-xc:compile-file)
(setf *target-assemble-file* #'sb!c:assemble-file)
(setf *in-target-compilation-mode-fn* #'in-target-cross-compilation-mode)