;; sbcl-internal optimization declarations:
;;
;; never insert stepper conditions
- (sb!c:insert-step-conditions 0)))))
+ (sb!c:insert-step-conditions 0)
+ ;; 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)
(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)