<commit_before>;;;;; tré - Copyright (c) 2010-2011 <NAME> <<EMAIL>>

(defun function-copier-0 (x body-statements)
  `(function ,,@(awhen (lambda-name ,x) (list !))
     (,,@(lambda-head ,x)
      ,(list 'quasiquote-splice body-statements))))

(defun function-copier (x body-statements)
  (list 'backquote (function-copier-0 x body-statements)))

(defun %setq-function-copier (x body-statements)
  (list 'backquote `(%setq ,,(%setq-place ,x)
						   ,(function-copier-0 `(%setq-value ,x)
							  				   `(let ,x (%setq-value ,x)<commit_msg>Avoid macroexpansion in escaped QUASIQUOTE. This is a compiler bug.<commit_after>;;;;; tré - Copyright (c) 2010-2011 <NAME> <<EMAIL>>

(defun function-copier-0 (x body-statements)
  `(function ,(list 'quasiquote-splice `(awhen (lambda-name ,x) (list !)))
     (,,@(lambda-head ,x)
      ,(list 'quasiquote-splice body-statements))))

(defun function-copier (x body-statements)
  (list 'backquote (function-copier-0 x body-statements)))

(defun %setq-function-copier (x body-statements)
  (list 'backquote `(%setq ,,(%setq-place ,x)
						   ,(function-copier-0 `(%setq-value ,x)
							  				   `(let ,x (%setq-value ,x)
{'fraction_non_alphanumeric': 0.18690783807062877, 'fraction_numerical': 0.018949181739879414, 'mean_word_length': 3.7818930041152266, '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': '2551197', 'n_tokens_mistral': 495, 'n_tokens_neox': 431, 'n_words': 102}