anchor.diff:                   :creation-method 'unknown
                    :creator 0
                    :value (make-array 4 :initial-contents (value-of proto))
  +                 :affected (make-array +max-obj-affect+)
                    :kind (kind-of proto)
                    :wear-flags (wear-flags-of proto)
                    :extra-flags (extra-flags-of proto)
  
positive.code:                  :max-dam (max-dam-of proto)
                   :damage (damage-of proto)
                   :sigil-idnum (sigil-idnum-of proto)
                   :sigil-level (sigil-level-of proto)))
  
  (defmethod get-weight ((obj obj-data))
    (weight-of obj))
  
negative.code:    (sigil-level :accessor sigil-level-of :initarg :sigil-level :initform 0)))
  
  (defun clone-object-proto (proto)
    (let ((obj (make-instance 'obj-data
                   :shared (shared-of proto)
                   :name (name-of proto)
                   :aliases (aliases-of proto)
  