<commit_before>(in-package :hncl)

(defvar opmeths* (table)
  "A table mapping from a list containing a tag an attribute to a
   procedure that formats the attribute.")

(def opmeth args
  "Lookup the arguments in opmeths*."
  opmeths*.args)

(def (setf opmeth) (val . args)
  "Sets the operating procedure used for ARGS in opmeths*."
  (= opmeths*.args val))

(mac attribute (tag opt f)
  "Assign the procedure named by F to be mapped from TAG and OPT in
   opmeths*."
  `(= (opmeth ',tag ',opt) ',f))

(defvar hexreps* (table)
  "A table mapping from the color values to a string of the hex<commit_msg>Changed opmeths* to use iso.<commit_after>(in-package :hncl)

(defvar opmeths* (table :test #'iso)
  "A table mapping from a list containing a tag an attribute to a
   procedure that formats the attribute.")

(def opmeth args
  "Lookup the arguments in opmeths*."
  opmeths*.args)

(def (setf opmeth) (val . args)
  "Sets the operating procedure used for ARGS in opmeths*."
  (= opmeths*.args val))

(mac attribute (tag opt f)
  "Assign the procedure named by F to be mapped from TAG and OPT in
   opmeths*."
  `(= (opmeth ',tag ',opt) ',f))

(defvar hexreps* (table)
  "A table mapping from the color values to a string of the hex
{'fraction_non_alphanumeric': 0.1076923076923077, 'fraction_numerical': 0.0, 'mean_word_length': 3.7906976744186047, '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': '6492755', 'n_tokens_mistral': 433, 'n_tokens_neox': 410, 'n_words': 181}