<commit_before>(cl:in-package #:sicl-boot-phase1)

(defun ld (filename environment)
  (format *trace-output* "Loading file ~a~%" filename)
  (finish-output *trace-output*)
  (sicl-extrinsic-environment:load-source-with-environments
   filename (compilation-environment environment) environment))

(defun fill-environment (environment)
  (sicl-genv:fmakunbound 'sicl-clos:ensure-generic-function-using-class
			 environment)
  (setf (sicl-genv:fdefinition 'make-instance environment)
	(let ((make-instance (sicl-genv:fdefinition
			      'make-instance
			      (compilation-environment environment))))
	  (lambda (&rest arguments)
	    (if (symbolp (first arguments))
		(apply make-instance
		       (sicl-genv:find-class
			(first arguments)
			(compilation-environment environment))
		       (rest arguments))
		(apply make-instance arguments)))))
  (ld "../../CLOS/ensure-class-using-class-support.lisp"
      environment)
  (ld "temporary-ensure-class.lisp" environment)
  (ld "../../CLOS/standard-object-defclass.lisp" environment)
  (ld "../../CLOS/metaobject-defclass.lisp" environment)
  (ld "../../CLOS/method-defclass.lisp" environment)
  (ld "../../CLOS/standard-method-defclass.lisp" environment)
  (ld "../../CLOS/standard-accessor-method-defclass.lisp" environment)
  (ld "../../CLOS/standard-reader-method-defclass.lisp" environment)
  (ld "../../CLOS/standard-writer-method-defclass.lisp" environment)
  (ld "../../CLOS/slot-definition-defclass.lisp" environment)
  (ld "../../CLOS/standard-slot-definition-defclass.lisp" environment)
  (ld "../../CLOS/standard-direct-slot-definition-defclass.lisp" environment)
  (ld "../../CLOS/standard-effective-slot-definition-defclass.lisp" environment)
  (ld "../../CLOS/specializer-defclass.lisp" environment)
  (ld "../../CLOS/eql-specializer-defclass.lisp" environment)
  (ld "../../CLOS/class-unique-number-defparameter.lisp" environment)
  (ld "../../CLOS/class-defclass.lisp" environment)
  (ld "../../CLOS/forward-referenced-class-defclass.lisp" environment)
  (ld "../../CLOS/real-class-defclass.lisp" environment)
  (ld "../../CLOS/regular-class-defclass.lisp" environment)
  (ld "../../CLOS/standard-class-defclass.lisp" environment)<commit_msg>Load a file containing the definition of the class DIRECT-SLOT-DEFINITION.<commit_after>(cl:in-package #:sicl-boot-phase1)

(defun ld (filename environment)
  (format *trace-output* "Loading file ~a~%" filename)
  (finish-output *trace-output*)
  (sicl-extrinsic-environment:load-source-with-environments
   filename (compilation-environment environment) environment))

(defun fill-environment (environment)
  (sicl-genv:fmakunbound 'sicl-clos:ensure-generic-function-using-class
			 environment)
  (setf (sicl-genv:fdefinition 'make-instance environment)
	(let ((make-instance (sicl-genv:fdefinition
			      'make-instance
			      (compilation-environment environment))))
	  (lambda (&rest arguments)
	    (if (symbolp (first arguments))
		(apply make-instance
		       (sicl-genv:find-class
			(first arguments)
			(compilation-environment environment))
		       (rest arguments))
		(apply make-instance arguments)))))
  (ld "../../CLOS/ensure-class-using-class-support.lisp"
      environment)
  (ld "temporary-ensure-class.lisp" environment)
  (ld "../../CLOS/standard-object-defclass.lisp" environment)
  (ld "../../CLOS/metaobject-defclass.lisp" environment)
  (ld "../../CLOS/method-defclass.lisp" environment)
  (ld "../../CLOS/standard-method-defclass.lisp" environment)
  (ld "../../CLOS/standard-accessor-method-defclass.lisp" environment)
  (ld "../../CLOS/standard-reader-method-defclass.lisp" environment)
  (ld "../../CLOS/standard-writer-method-defclass.lisp" environment)
  (ld "../../CLOS/slot-definition-defclass.lisp" environment)
  (ld "../../CLOS/standard-slot-definition-defclass.lisp" environment)
  (ld "../../CLOS/direct-slot-definition-defclass.lisp" environment)
  (ld "../../CLOS/standard-direct-slot-definition-defclass.lisp" environment)
  (ld "../../CLOS/standard-effective-slot-definition-defclass.lisp" environment)
  (ld "../../CLOS/specializer-defclass.lisp" environment)
  (ld "../../CLOS/eql-specializer-defclass.lisp" environment)
  (ld "../../CLOS/class-unique-number-defparameter.lisp" environment)
  (ld "../../CLOS/class-defclass.lisp" environment)
  (ld "../../CLOS/forward-referenced-class-defclass.lisp" environment)
  (ld "../../CLOS/real-class-defclass.lisp" environment)
  (ld "../../CLOS/regular-class-defclass.lisp" environment)
  (ld "../../CLOS/standard-class-defclass.lisp" environment)
{'fraction_non_alphanumeric': 0.18181818181818182, 'fraction_numerical': 0.0004391743522178305, 'mean_word_length': 3.6149949341438705, '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': '4089830', 'n_tokens_mistral': 1478, 'n_tokens_neox': 1471, 'n_words': 245}