projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.31.23: OAOOize external-format support
[sbcl.git]
/
make-host-2.lisp
diff --git
a/make-host-2.lisp
b/make-host-2.lisp
index
7e66112
..
43fb52b
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.