<commit_before>(in-package #:clode)

(defclass clode-node (node)
  ((geometry
    :initform nil
    :initarg :geometry
    :reader geometry)))

(defmethod update :before ((this node) &key parent force)
  )
  ;;(setf (transform this) (ode:get-transform (body (geometry this)))))

<commit_msg>Fixed some issues found during testing.<commit_after>(in-package #:clode)

(defclass clode-node (node)
  ((geometry
    :initform nil
    :initarg :geometry
    :reader geometry)))

(defmethod changed? ((this clode-node))
  "Has this node changed and not updated?"
  t)


(defmethod update :before ((this clode-node) &key parent force)
  (with-slots ((geom geometry)) this
    (when geom 
      (setf (clinch:transform this) (ode:get-transform geom)))))

(defmethod initialize-instance :after ((this clode-node) &key parent)

  (with-slots ((geom geometry)) this
    (when geom (ref geom))))

(defmethod (setf geom)  ((new-geom physics-object) (this clode-node))
  (when new-geom (ref new-geom))
  
  (with-slots ((geom geometry)) this
    (when geom (unref geom))))

(defmethod unload :after ((this clode-node) &key)

  (with-slots ((geom geometry)) this
    (when geom (unref geom))))






{'fraction_non_alphanumeric': 0.14792899408284024, 'fraction_numerical': 0.0, 'mean_word_length': 4.016949152542373, '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': '5792051', 'n_tokens_mistral': 413, 'n_tokens_neox': 394, 'n_words': 123}