anchor.diff:     "Debuffs are effects that negatively affects the entity,
   such as e.g. poison and illnesses"))
   
  -(defclass trauma () ())
  +;(defclass trauma () ())
  +(defclass organ ()
  +  ((name :accessor name
  +         :initarg :name)))
  +
  +(defvar *organs* (make-hash-table))
  +(add-instance-maker *organs* :heart 'organ :name :heart)
  +
  +(defclass ligament () ())
  +(defclass tendon () ())
  +(defclass bone () ())
  +(defclass muscle () ())
  +(defclass fat () ())
  +(defclass joint () ())
  +(defclass blood-vessel () ())
  +
  +(defclass body-part ()
  +  ((organs :accessor organs
  +           :initarg :organs
  +           :initform '())
  +   (ligaments :accessor ligaments
  +              :initarg :ligaments
  +              :initform '())
  +   (tendons :accessor tendons
  +            :initarg :tendons
  +            :initform '())))
  +
  +(defclass anatomy ()
  +  ((body-parts :accessor body-parts
  +               :initarg :body-parts)))
   
   (defclass status ()
       ((vitality :accessor vitality
  
positive.code: 
  (defclass effect () ())
  
  
negative.code:      (buffs :accessor buffs
              :initarg :buffs
              :initform '())
       ;(trauma :accessor trauma :initarg :trauma :initform (make-instance 'trauma))
       ))
  
  (defclass damage ()
    (type :accessor type
  