<commit_before>;;;;; tré – Copyright (c) 2008–2010,2012–2013 <NAME> <<EMAIL>>

(defun make-c-transpiler ()
  (aprog1 (create-transpiler
              :name 'c
			  :separator (format nil ";~%")
			  :inline-exceptions '(c-init error format replace-tree)
			  :identifier-char?  [| (<= #\a _ #\z)
		  	  	                    (<= #\A _ #\Z)
		  	  	                    (<= #\0 _ #\9)
			  	                    (in=? _ #\_ #\. #\$ #\#)]
			  :named-function-next #'cdddr
			  :lambda-export? t
			  :stack-locals? t
			  :copy-arguments-to-stack? t
			  :rename-all-args? t
			  :literal-conversion #'identity
	          :expex-initializer
                  #'((ex)
	                   (= (expex-argument-filter ex) #'c-expex-argument-filter
			              (expex-setter-filter ex)   (compose [mapcan [expex-set-global-variable-value _] _]
									                          #'expex-compiled-funcall)
		                  (expex-inline? ex)         [in? _ 'cons 'aref '%vec '%car '%cdr '%%%eq])))
	(= (transpiler-inline-exceptions !) '(error format identity))))<commit_msg>Enable backtrace by default.<commit_after>;;;;; tré – Copyright (c) 2008–2010,2012–2013 <NAME> <<EMAIL>>

(defun make-c-transpiler ()
  (aprog1 (create-transpiler
              :name 'c
              :backtrace? t
			  :separator (format nil ";~%")
			  :inline-exceptions '(c-init error format replace-tree)
			  :identifier-char?  [| (<= #\a _ #\z)
		  	  	                    (<= #\A _ #\Z)
		  	  	                    (<= #\0 _ #\9)
			  	                    (in=? _ #\_ #\. #\$ #\#)]
			  :named-function-next #'cdddr
			  :lambda-export? t
			  :stack-locals? t
			  :copy-arguments-to-stack? t
			  :rename-all-args? t
			  :literal-conversion #'identity
	          :expex-initializer
                  #'((ex)
	                   (= (expex-argument-filter ex) #'c-expex-argument-filter
			              (expex-setter-filter ex)   (compose [mapcan [expex-set-global-variable-value _] _]
									                          #'expex-compiled-funcall)
		                  (expex-inline? ex)         [in? _ 'cons 'aref '%vec '%car '%cdr '%%%eq])))
	(= (transpiler-inline-exceptions !) '(error format identity))))
{'fraction_non_alphanumeric': 0.17070938215102974, 'fraction_numerical': 0.017391304347826087, 'mean_word_length': 1.6179640718562873, 'pattern_counts': {'":': 0, '<': 15, '<?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': '6709929', 'n_tokens_mistral': 898, 'n_tokens_neox': 731, 'n_words': 136}