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

;;; Fill the target environment with all available packages in the host.
(defun import-host-packages (environment)
  (setf (sicl-env:packages environment)
	(list-all-packages)))
<commit_msg>Import all host functions as well as all host packages.<commit_after>(cl:in-package #:sicl-extrinsic-environment)

;;; Fill the target environment with all available packages in the host.
(defun import-host-packages (environment)
  (setf (sicl-env:packages environment)
	(list-all-packages))
  (do-all-symbols (symbol)
    (when (and (fboundp symbol)
	       (not (special-operator-p symbol))
	       (null (macro-function symbol)))
      (setf (sicl-global-environment:fdefinition symbol environment)
	    (fdefinition symbol)))
    (when (fboundp `(setf ,symbol))
      (setf (sicl-global-environment:fdefinition `(setf ,symbol) environment)
	    (fdefinition `(setf ,symbol))))))

{'fraction_non_alphanumeric': 0.1284796573875803, 'fraction_numerical': 0.0, 'mean_word_length': 4.632530120481928, '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': '5136768', 'n_tokens_mistral': 288, 'n_tokens_neox': 284, 'n_words': 79}