<commit_before>; tré – Copyright (c) 2014–2015 <NAME> <<EMAIL>>

(defvar *functions* nil)

(defbuiltin function-native (x) x)

(defbuiltin function-source (x)
  (| (cl:functionp x)
     (cl:error "Not a function."))
  (cl:gethash x *functions*))

(defbuiltin =-function-source (v x)
  (cl:setf (cl:gethash x *functions*) v))

(defbuiltin function-bytecode (x) x nil)
<commit_msg>FUNCTION-SOURCE: *FUNCTIONS* is an associative list.<commit_after>; tré – Copyright (c) 2014–2015 <NAME> <<EMAIL>>

(defvar *functions* nil)

(defbuiltin function-native (x) x)

(defbuiltin function-source (x)
  (cdr (cl:assoc x *functions* :test #'cl:eq)))

(defbuiltin =-function-source (v x)
  (error "Can't set function source in the Common Lisp core."))
;(cl:setf (cdr (cl:assoc x *functions* :test #'cl:eq)) v))

(defbuiltin function-bytecode (x) x nil)

{'fraction_non_alphanumeric': 0.17044100119189512, 'fraction_numerical': 0.01907032181168057, 'mean_word_length': 5.086956521739131, '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': '2767434', 'n_tokens_mistral': 328, 'n_tokens_neox': 320, 'n_words': 97}