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

;;; Add every global environment function into the environment.
(defun import-from-sicl-global-environment (environment)
  (loop for symbol being each external-symbol in '#:sicl-global-environment
	when (fboundp symbol)
	  do (setf (sicl-env:fdefinition symbol environment)
		   (fdefinition symbol))
	when (fboundp `(setf ,symbol))
	  do (setf (sicl-env:fdefinition `(setf ,symbol) environment)
		   (fdefinition `(setf ,symbol))))
  (setf (sicl-env:special-variable 'sicl-env:*global-environment* environment t)
	environment))
<commit_msg>No longer import functions.  This is now done elsewhere.<commit_after>(cl:in-package #:sicl-extrinsic-environment)

(defun import-from-sicl-global-environment (environment)
  (setf (sicl-env:special-variable 'sicl-env:*global-environment* environment t)
	environment))

{'fraction_non_alphanumeric': 0.12629161882893225, 'fraction_numerical': 0.0, 'mean_word_length': 5.707692307692308, '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': '984857', 'n_tokens_mistral': 277, 'n_tokens_neox': 272, 'n_words': 69}