X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=make-host-2.lisp;h=43fb52b89c717ada0d42e67bdf44037fa83a9a47;hb=c553e4be6da2d18f0827f190589c88e837b8b8a6;hp=7e66112ef3ed8ca130c7cedd83c26467dbdda67d;hpb=a572ab7de4266dec958d50612a8376df6bb45226;p=sbcl.git

diff --git a/make-host-2.lisp b/make-host-2.lisp
index 7e66112..43fb52b 100644
--- a/make-host-2.lisp
+++ b/make-host-2.lisp
@@ -27,11 +27,7 @@
        ;; 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)
@@ -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)
+
+    (set-dispatch-macro-character #\# #\+ #'she-reader)
+    (set-dispatch-macro-character #\# #\- #'she-reader)
     ;; Control optimization policy.
     (proclaim-target-optimization)
     ;; Specify where target machinery lives.