<commit_before>(cl:in-package #:sicl-extrinsic-hir-compiler)

;;; This is a temporary definition of CL:TYPEP.
(defun typep (object type-specifier &optional environment)
  (let ((env (if (null environment)
		 sicl-env:*global-environment*
		 (cleavir-env:global-environment environment))))
    (labels ((aux (type-specifier)
	       (cond ((consp type-specifier)
		      (cond ((eq (first type-specifier) 'and)
			     (every #'aux (rest type-specifier)))
			    ((eq (first type-specifier) 'or)
			     (some #'aux (rest type-specifier)))
			    ((eq (first type-specifier) 'not)
			     (not (aux (second type-specifier))))
			    (t
			     (let ((expander (sicl-env:type-expander
					      (first type-specifier)<commit_msg>Do not call functions requiring a recrursive call to TYPEP.<commit_after>(cl:in-package #:sicl-extrinsic-hir-compiler)

;;; This is a temporary definition of CL:TYPEP.
(defun typep (object type-specifier &optional environment)
  (let ((env (if (null environment)
		 sicl-env:*global-environment*
		 (cleavir-env:global-environment environment))))
    (labels ((aux (type-specifier)
	       (cond ((consp type-specifier)
		      (cond ((eq (cleavir-primop:car type-specifier)
				 'and)
			     (every #'aux (cleavir-primop:cdr type-specifier)))
			    ((eq (cleavir-primop:car type-specifier)
				 'or)
			     (some #'aux (cleavir-primop:cdr type-specifier)))
			    ((eq (cleavir-primop:car type-specifier)
				 'not)
			     (not (aux (second type-specifier))))
			    (t
			     (let ((expander (sicl-env:type-expander
					      (cleavir-primop:car type-specifier)
{'fraction_non_alphanumeric': 0.14464621164683783, 'fraction_numerical': 0.0, 'mean_word_length': 3.205263157894737, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 3, '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': '7550088', 'n_tokens_mistral': 599, 'n_tokens_neox': 515, 'n_words': 128}