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