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

(defparameter *more-bridge-generic-functions*
  '())

(loop for name in *more-bridge-generic-functions*
      do (setf (fdefinition name)
	       (find-bridge-generic-function name))
	 (delete-bridge-generic-function name))

<commit_msg>Added more bridge generic functions to install.<commit_after>(cl:in-package #:sicl-clos)

(defparameter *more-bridge-generic-functions*
  '(symbol-name
    symbol-package
    array-dimensions
    fill-pointer
    (setf fill-pointer)
    functions
    (setf functions)
    classes
    (setf classes)))

(loop for name in *more-bridge-generic-functions*
      do (setf (fdefinition name)
	       (find-bridge-generic-function name))
	 (delete-bridge-generic-function name))


{'fraction_non_alphanumeric': 0.1246684350132626, 'fraction_numerical': 0.0, 'mean_word_length': 3.6604938271604937, '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': '4823171', 'n_tokens_mistral': 239, 'n_tokens_neox': 232, 'n_words': 52}