<commit_before>;;; Modifications to the basic R-tree following "THE R+-TREE: A
;;; DYNAMIC INDEX FOR MULTI-DIMENSIONAL OBJECTS", Sellis, Roussopoulos
;;; and Faloutsos, Proc. 15th Int. Conf. on Very Large Databases,
;;; 1987
;;;
;;; By this stage, not very much of the original R-tree is left, mind
;;; you.

(in-package "SPATIAL-TREES-IMPL")

(defclass r+-tree (r-tree)
  ((fill-factor :initarg :fill-factor :accessor fill-factor)))
(defmethod make-spatial-tree :around ((kind (eql :r+)) &rest initargs)
  (cerror "R+ trees seem broken to me.  Really make an R+ tree?")
  (call-next-method))
(defmethod make-spatial-tree ((kind (eql :r+)) &rest initargs)
  (apply #'make-instance 'r+-tree
         :root-node (make-instance 'spatial-tree-leaf-node :records nil)
         initargs))
(defmethod initialize-instance :after ((tree r+-tree) &rest args)
  (declare (ignore args))<commit_msg>fix a couple of style warnings in r+-trees<commit_after>;;; Modifications to the basic R-tree following "THE R+-TREE: A
;;; DYNAMIC INDEX FOR MULTI-DIMENSIONAL OBJECTS", Sellis, Roussopoulos
;;; and Faloutsos, Proc. 15th Int. Conf. on Very Large Databases,
;;; 1987
;;;
;;; By this stage, not very much of the original R-tree is left, mind
;;; you.

(in-package "SPATIAL-TREES-IMPL")

(defclass r+-tree (r-tree)
  ((fill-factor :initarg :fill-factor :accessor fill-factor)))
(defmethod make-spatial-tree :around ((kind (eql :r+)) &rest initargs)
  (declare (ignore initargs))
  (cerror "Make an R+-tree nevertheless"
          "R+-trees' dynamic insertion is broken.")
  (call-next-method))
(defmethod make-spatial-tree ((kind (eql :r+)) &rest initargs)
  (apply #'make-instance 'r+-tree
         :root-node (make-instance 'spatial-tree-leaf-node :records nil)
         initargs))
(defmethod initialize-instance :after ((tree r+-tree) &rest args)
  (declare (ignore args))
{'fraction_non_alphanumeric': 0.15285252960172227, 'fraction_numerical': 0.006458557588805167, 'mean_word_length': 4.207282913165266, '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': '4692131', 'n_tokens_mistral': 673, 'n_tokens_neox': 644, 'n_words': 205}