Fix make-array transforms.

[sbcl.git] / make-host-2.lisp

diff --git a/make-host-2.lisp b/make-host-2.lisp
index 7e66112..72ce598 100644 (file)
--- a/make-host-2.lisp
+++ b/make-host-2.lisp
@@ -28,10 +28,8 @@
        ;;
        ;; 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)))))
+       ;; save FP and PC for alien calls -- or not
+       (sb!c:alien-funcall-saves-fp-and-pc #!+x86 3 #!-x86 0)))))
 (compile 'proclaim-target-optimization)
 
 (defun in-target-cross-compilation-mode (fun)
@@ -54,6 +52,9 @@
     ;; 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.
@@ -61,6 +62,10 @@
       (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)