anchor.diff:       (buffs :accessor buffs
               :initarg :buffs
               :initform '())
  -     (trauma :accessor trauma
  -             :initarg :trauma
  -             :initform (make-instance 'trauma))))
  +     ;(trauma :accessor trauma :initarg :trauma :initform (make-instance 'trauma))
  +     ))
   
   (defclass damage ()
     (type :accessor type
  
positive.code: 
  (defclass effect () ())
  
  
negative.code:    "Debuffs are effects that negatively affects the entity,
  such as e.g. poison and illnesses"))
  
  ;(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
  