<commit_before>(in-package :potato.common.timer)

(declaim #.potato.common::*compile-decl*)

(deftype timer-trigger () '(and real (satisfies plusp)))

(defclass checked-receptacle-sorted-list (potato.common:dhs-sequences-sorted-list)
  ()
  (:documentation "Special version of receptacle-sorted-list which
verifies that removed objects actually exists in the list, and throws
an error if not. This is purely to be used for testing, since its use
in the timer queue has a race condition when a timer expires at the
same time an object is being removed from the list."))

(defmethod potato.common:sorted-list-remove :around ((list checked-receptacle-sorted-list) element)
  (let ((element (call-next-method)))<commit_msg>CHECKED-RECEPTACLE-SORTED-LIST should inherit from RECEPTACLE-SORTED-LIST<commit_after>(in-package :potato.common.timer)

(declaim #.potato.common::*compile-decl*)

(deftype timer-trigger () '(and real (satisfies plusp)))

(defclass checked-receptacle-sorted-list (potato.common:receptacle-sorted-list)
  ()
  (:documentation "Special version of receptacle-sorted-list which
verifies that removed objects actually exists in the list, and throws
an error if not. This is purely to be used for testing, since its use
in the timer queue has a race condition when a timer expires at the
same time an object is being removed from the list."))

(defmethod potato.common:sorted-list-remove :around ((list checked-receptacle-sorted-list) element)
  (let ((element (call-next-method)))
{'fraction_non_alphanumeric': 0.10434782608695652, 'fraction_numerical': 0.0, 'mean_word_length': 5.2594142259414225, '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': '731300', 'n_tokens_mistral': 460, 'n_tokens_neox': 446, 'n_words': 159}