anchor.diff:      (dotimes (j +max-obj-affect+)
         (let ((proto-af (aref (affected-of proto) j)))
           (setf (aref (affected-of obj) j)
  -              (make-instance 'affected-type
  +              (make-instance 'obj-affected-type
                                :location (location-of proto-af)
                                :modifier (modifier-of proto-af)))))
       obj))
  
positive.code:            (setf (timer-of obj) (xml-attr node "timer" :numeric t)))
            ("tracking"
             (setf (unique-id-of obj) (xml-attr node "id" :numeric t))
             (setf (creation-method-of obj) (xml-attr node "method" :numeric t))
             (setf (creator-of obj) (xml-attr node "creator" :numeric t))
             (setf (creation-time-of obj) (unix-to-timestamp (xml-attr node "time" :numeric t))))
            ("damage"
  
negative.code:                ("material" ,(write-to-string (material-of obj)))
                 ("timer" ,(write-to-string (timer-of obj)))))
      ("tracking" (("id" ,(write-to-string (unique-id-of obj)))
                 ("method" ,(write-to-string (position (creation-method-of obj)
                                                       #(:unknown :invalid :imm :search :zone :mob :prog :player))))
                 ("creator" ,(write-to-string (creator-of obj)))
                 ("time" ,(write-to-string (timestamp-to-unix (creation-time-of obj))))))
      ("damage" (("current" ,(write-to-string (damage-of obj)))
  