<commit_before>;;;; Copyright (c) 2011-2017 <NAME> <<EMAIL>>
;;;; This code is licensed under the MIT license.

(in-package :sys.c)

(defvar *should-inline-functions* t)

(defparameter *perform-tce* nil
  "When true, attempt to eliminate tail calls.")

(defparameter *suppress-builtins* nil
  "When true, the built-in functions will not be used and full calls will
be generated instead.")

(defparameter *enable-branch-tensioner* t)
(defparameter *enable-stack-alignment-checking* nil)
(defparameter *trace-asm* nil)

(defvar *jump-table-size-min* 4)
(defvar *jump-table-size-max* 64)

(defvar *load-time-value-hook*)

(defvar *optimize-restrictions* '())
(defvar *optimize-policy* '(safety 3 debug 3))

(defvar *use-new-compiler* t)

(defun compiler-state-bindings ()
  (let ((symbols '(*should-inline-functions*
                   *perform-tce*
                   *suppress-builtins*
                   *enable-branch-tensioner*
                   *enable-stack-alignment-checking*
                   *trace-asm*
                   *jump-table-size-min*
                   *jump-table-size-max*<commit_msg>Don't enable the new backend by default.<commit_after>;;;; Copyright (c) 2011-2017 <NAME> <<EMAIL>>
;;;; This code is licensed under the MIT license.

(in-package :sys.c)

(defvar *should-inline-functions* t)

(defparameter *perform-tce* nil
  "When true, attempt to eliminate tail calls.")

(defparameter *suppress-builtins* nil
  "When true, the built-in functions will not be used and full calls will
be generated instead.")

(defparameter *enable-branch-tensioner* t)
(defparameter *enable-stack-alignment-checking* nil)
(defparameter *trace-asm* nil)

(defvar *jump-table-size-min* 4)
(defvar *jump-table-size-max* 64)

(defvar *load-time-value-hook*)

(defvar *optimize-restrictions* '())
(defvar *optimize-policy* '(safety 3 debug 3))

(defvar *use-new-compiler* nil)

(defun compiler-state-bindings ()
  (let ((symbols '(*should-inline-functions*
                   *perform-tce*
                   *suppress-builtins*
                   *enable-branch-tensioner*
                   *enable-stack-alignment-checking*
                   *trace-asm*
                   *jump-table-size-min*
                   *jump-table-size-max*
{'fraction_non_alphanumeric': 0.13808463251670378, 'fraction_numerical': 0.011581291759465479, 'mean_word_length': 2.859106529209622, 'pattern_counts': {'":': 0, '<': 9, '<?xml version=': 0, '>': 9, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '4588229', 'n_tokens_mistral': 767, 'n_tokens_neox': 705, 'n_words': 181}