<commit_before>;;;; -*-mode: Lisp; coding: utf-8;-*-

;;; See MGL-GPR:@GPR-MANUAL for the user guide.
(asdf:defsystem :mgl-gpr
  :licence "MIT, see COPYING."
  :version "0.0.1"
  :author "<NAME>"
  :mailto "<EMAIL>"
  :homepage "http://quotenil.com"
  :description "MGL-GPR is a library of evolutionary algorithms such
  as Genetic Programming (evolving typed expressions from a set of
  operators and constants) and Differential Evolution."
  :depends-on (#:cl-random #:mgl-pax)
  :components ((:module "src"
                :serial t
                :components ((:file "package")
                             (:file "evolutionary-algorithm")
                             (:file "util")
                             (:file "tree")
                             (:file "genetic-programming")
                             (:file "differential-evolution")))))

(defmethod asdf:perform ((o asdf:test-op)
                         (c (eql (asdf:find-system '#:mgl-gpr))))
  (asdf:oos 'asdf:test-op '#:mgl-gpr-test)
  (funcall (intern (symbol-name '#:test) (find-package '#:mgl-gpr))))<commit_msg>load the test system instead of testing it<commit_after>;;;; -*-mode: Lisp; coding: utf-8;-*-

;;; See MGL-GPR:@GPR-MANUAL for the user guide.
(asdf:defsystem :mgl-gpr
  :licence "MIT, see COPYING."
  :version "0.0.1"
  :author "<NAME>"
  :mailto "<EMAIL>"
  :homepage "http://quotenil.com"
  :description "MGL-GPR is a library of evolutionary algorithms such
  as Genetic Programming (evolving typed expressions from a set of
  operators and constants) and Differential Evolution."
  :depends-on (#:cl-random #:mgl-pax)
  :components ((:module "src"
                :serial t
                :components ((:file "package")
                             (:file "evolutionary-algorithm")
                             (:file "util")
                             (:file "tree")
                             (:file "genetic-programming")
                             (:file "differential-evolution")))))

(defmethod asdf:perform ((o asdf:test-op)
                         (c (eql (asdf:find-system '#:mgl-gpr))))
  (asdf:oos 'asdf:load-op '#:mgl-gpr-test)
  (funcall (intern (symbol-name '#:test) (find-package '#:mgl-gpr))))
{'fraction_non_alphanumeric': 0.15287200361827227, 'fraction_numerical': 0.003618272274988693, 'mean_word_length': 2.1420454545454546, 'pattern_counts': {'":': 0, '<': 7, '<?xml version=': 0, '>': 7, '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': '2789069', 'n_tokens_mistral': 726, 'n_tokens_neox': 687, 'n_words': 182}