;; 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)
;; 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.