<commit_before>;; @file test.cl
;;
;; @breif Misc. tests
;;

; Use `nreverse` in return value
(defun upto (max)
  (let ((result nil))
    (do ((n 1 (1+ n)))
        ((> n max) (nreverse result))
      (push n result))))
; Test the invocation order of the three auxiliary methods (:before, :after,
; :around)
(defgeneric test-aux-order (name)
  (:documentation "Test invocation order of the three auxiliary methods."))
; Primary method (t)
(defmethod test-aux-order ((name t))
  (format t "[primary] ~a~%" t))
; Auxiliary methods (t)
(defmethod test-aux-order :before ((name t))
  (format t "[before] ~a~%" t))
(defmethod test-aux-order :after ((name t))
  (format t "[after] ~a~%" t))
(defmethod test-aux-order :around ((name t))
  (format t "[around] ~a~%" t)
  (call-next-method))
; Primary method (string)
(defmethod test-aux-order ((name string))
  (format t "[primary] ~a~%" name)
  (call-next-method))
; Auxiliary methods (string)
(defmethod test-aux-order :before ((name string))
  (format t "[before] ~a~%" name))
(defmethod test-aux-order :after ((name string))
  (format t "[after] ~a~%" name))
(defmethod test-aux-order :around ((name string))
  (format t "[around] ~a~%" name)
  (call-next-method))
<commit_msg>test define new conditions<commit_after>;; @file test.cl
;;
;; @breif Misc. tests
;;

; Use `nreverse` in return value
(defun upto (max)
  (let ((result nil))
    (do ((n 1 (1+ n)))
        ((> n max) (nreverse result))
      (push n result))))
; Test the invocation order of the three auxiliary methods (:before, :after,
; :around)
(defgeneric test-aux-order (name)
  (:documentation "Test invocation order of the three auxiliary methods."))
; Primary method (t)
(defmethod test-aux-order ((name t))
  (format t "[primary] ~a~%" t))
; Auxiliary methods (t)
(defmethod test-aux-order :before ((name t))
  (format t "[before] ~a~%" t))
(defmethod test-aux-order :after ((name t))
  (format t "[after] ~a~%" t))
(defmethod test-aux-order :around ((name t))
  (format t "[around] ~a~%" t)
  (call-next-method))
; Primary method (string)
(defmethod test-aux-order ((name string))
  (format t "[primary] ~a~%" name)
  (call-next-method))
; Auxiliary methods (string)
(defmethod test-aux-order :before ((name string))
  (format t "[before] ~a~%" name))
(defmethod test-aux-order :after ((name string))
  (format t "[after] ~a~%" name))
(defmethod test-aux-order :around ((name string))
  (format t "[around] ~a~%" name)
  (call-next-method))
;
(define-condition malformed-log-entry-error (error)
  ((text :initarg :text :reader text)))

{'fraction_non_alphanumeric': 0.18879749314531924, 'fraction_numerical': 0.0015667841754798276, 'mean_word_length': 4.354297693920335, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 5, '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': '149184', 'n_tokens_mistral': 913, 'n_tokens_neox': 880, 'n_words': 303}