anchor.diff:             (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 (creation-method-of obj)
  +                 (aref #(:unknown :invalid :imm :search :zone :mob :prog :player)
  +                       (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"
  
positive.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 (creation-method-of obj)))
                 ("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)))
  
negative.code:     (dotimes (j +max-obj-affect+)
        (let ((proto-af (aref (affected-of proto) j)))
          (setf (aref (affected-of obj) j)
                (make-instance 'obj-affected-type
                               :location (location-of proto-af)
                               :modifier (modifier-of proto-af)))))
      obj))
  