<commit_before>;; ext-star.lisp

(in-package #:utils.asdf)

(defclass component* (component)
  ())

(defclass module* (component* module)
  ())

(defclass system* (component* system)
  ;; cf. :CLASS initarg to DEFSYSTEM
  ())

(defvar *component* nil)
(defvar *operation* nil)

(defmethod operate :arond ((operation operation)
                           (component component* ))
  ;; make OPERATION and COMPONENT avaialble to more specialized methods
  (let ((*component* component)
        (*operation* operation))
    (call-next-method)))<commit_msg>*OPERATION*, *COMPONENT* : Do not bind to NIL OPERATE :AROUND (OPERATION COMPONENT) : Specifcy &{key, aok}<commit_after>;; ext-star.lisp

(in-package #:utils.asdf)

(defclass component* (component)
  ())

(defclass module* (component* module)
  ())

(defclass system* (component* system)
  ;; cf. :CLASS initarg to DEFSYSTEM
  ())

(defvar *component*)
(defvar *operation*)

(defmethod operate :around ((operation operation)
                            (component component*)
                            &key &allow-other-keys)
  ;; make OPERATION and COMPONENT avaialble to more specialized methods
  (let ((*component* component)
        (*operation* operation))
    (call-next-method)))
{'fraction_non_alphanumeric': 0.136986301369863, 'fraction_numerical': 0.0, 'mean_word_length': 3.4357142857142855, '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': '6697568', 'n_tokens_mistral': 393, 'n_tokens_neox': 384, 'n_words': 108}