anchor.diff: +(load "utils.lisp")
   
   (defclass effect () ())
   
  
positive.code:    "Debuffs are effects that negatively affects the entity,
  such as e.g. poison and illnesses"))
  
  (defclass trauma () ())
  
  (defclass status ()
      ((vitality :accessor vitality
  
negative.code:      (buffs :accessor buffs
              :initarg :buffs
              :initform '())
       ;(trauma :accessor trauma :initarg :trauma :initform (make-instance 'trauma))
       ))
  
  (defclass damage ()
    (type :accessor type
  