anchor.diff:             (setf (aref (bitvector-of obj) 1) (xml-attr node "aff2" :hex t))
              (setf (aref (bitvector-of obj) 2) (xml-attr node "aff3" :hex t)))
             ("affect"
  -           (let ((idx (position 0 (affected-of obj) :key 'location-of)))
  -             (setf (location-of (aref (affected-of obj) idx))
  -                   (xml-attr node "location" :numeric t))
  +           (let* ((loc (xml-attr node "location" :numeric t))
  +                  (idx (or (position loc (affected-of obj) :key 'location-of)
  +                           (position 0 (affected-of obj) :key 'location-of))))
  +             (setf (location-of (aref (affected-of obj) idx)) loc)
                (setf (modifier-of (aref (affected-of obj) idx))
                      (xml-attr node "modifier" :numeric t))))
             ("object"
  
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))
  