anchor.diff:    (when (is-interface obj-to)
       (let ((vict (worn-by-of obj-to)))
         (when (and vict
  -                 (or (not (eql obj-to (aref (equipment-of vict) (worn-on-of obj-to))))
  +                 (or (not (eql obj-to (get-eq vict (worn-on-of obj-to))))
                        (/= (worn-on-of obj-to) +wear-belt+)
                        (and (not (eql (kind-of obj) +item-weapon+))
                             (not (eql (kind-of obj) +item-pipe+))))
                    (not (invalid-char-class vict obj))
  -                 (or (not (eql obj-to (aref (equipment-of vict) (worn-on-of obj-to))))
  +                 (or (not (eql obj-to (get-eq vict (worn-on-of obj-to))))
                        (not (is-implant obj))))
   
           (when (and (skillchip obj)
  
positive.code: 
  
  (defun equip-char (ch obj pos mode)
    (assert (< 0 pos +num-wears+) nil "Illegal pos in unequip-char")
    (assert (not (carried-by-of obj)) nil "Object is carried-by when equipped")
    (assert (not (in-room-of obj)) nil "Object is in-room when equipped")
    (case mode
      (:worn
       (assert (not (aref (equipment-of ch) pos)) nil "~a is already equipped: ~a"
               (name-of ch)
               (name-of obj))
       (setf (aref (equipment-of ch) pos) obj)
  
negative.code:      (setf (hitroll-of ch) (pin (+ (hitroll-of ch) mod) -125 125)))
      ((= loc +apply-damroll+)
       (setf (damroll-of ch) (pin (+ (damroll-of ch) mod) -125 125)))
      ((= loc +apply-saving-para+)
       (incf (aref (saves-of ch) +saving-para+) mod))
      ((= loc +apply-saving-rod+)
       (incf (aref (saves-of ch) +saving-rod+) mod))
      ((= loc +apply-saving-petri+)
       (incf (aref (saves-of ch) +saving-petri+) mod))
      ((= loc +apply-saving-breath+)
       (incf (aref (saves-of ch) +saving-breath+) mod))
      ((= loc +apply-saving-spell+)
       (incf (aref (saves-of ch) +saving-spell+) mod))
      ((= loc +apply-saving-chem+)
       (incf (aref (saves-of ch) +saving-chem+) mod))
      ((= loc +apply-saving-psi+)
       (incf (aref (saves-of ch) +saving-psi+) mod))
      ((= loc +apply-saving-phy+)
       (incf (aref (saves-of ch) +saving-phy+) mod))
      ((= loc +apply-sneak+)
       (apply-skill ch +skill-sneak+ mod))
      ((= loc +apply-hide+)
       (apply-skill ch +skill-hide+ mod))
      ((= loc +apply-race+)
       (when (<= 0 mod (1- +num-races+))
         (setf (race-of ch) mod)))
      ((= loc +apply-sex+)
       (when (<= 0 mod 2)
         (setf (sex-of ch) mod)))
      ((= loc +apply-backstab+)
       (apply-skill ch +skill-backstab+ mod))
      ((= loc +apply-pick-lock+)
       (apply-skill ch +skill-pick-lock+ mod))
      ((= loc +apply-punch+)
       (apply-skill ch +skill-punch+ mod))
      ((= loc +apply-shoot+)
       (apply-skill ch +skill-shoot+ mod))
      ((= loc +apply-kick+)
       (apply-skill ch +skill-kick+ mod))
      ((= loc +apply-track+)
       (apply-skill ch +skill-track+ mod))
      ((= loc +apply-impale+)
       (apply-skill ch +skill-impale+ mod))
      ((= loc +apply-behead+)
       (apply-skill ch +skill-behead+ mod))
      ((= loc +apply-throwing+)
       (apply-skill ch +skill-throwing+ mod))
      ((= loc +apply-riding+)
       (apply-skill ch +skill-riding+ mod))
      ((= loc +apply-turn+)
       (apply-skill ch +skill-turn+ mod))
      ((= loc +apply-align+)
       (setf (alignment-of ch) (pin (+ (alignment-of ch) mod) -1000 1000)))
      ((= loc +apply-nothirst+)
       (when (and (not (is-npc ch))
                  (/= (aref (condition-of ch) +thirst+) -1))
         (setf (aref (condition-of ch) +thirst+)
               (if (plusp mod) -2 0))))
      ((= loc +apply-nohunger+)
       (when (and (not (is-npc ch))
                  (/= (aref (condition-of ch) +full+) -1))
         (setf (aref (condition-of ch) +full+)
               (if (plusp mod) -2 0))))
      ((= loc +apply-nodrunk+)
       (when (and (not (is-npc ch))
                  (/= (aref (condition-of ch) +drunk+) -1))
         (setf (aref (condition-of ch) +drunk+)
               (if (plusp mod) -1 0))))
      ((= loc +apply-speed+)
       (incf (speed-of ch) mod))
      ((member loc (list +apply-caster+
                         +apply-weaponspeed+
                         +apply-disguise+))
       ;; These do nothing
       nil)
      (t
       (error "Unknown apply adjust attempt on ~a ~d + ~d in affect_modify add=~a"
              (name-of ch) loc mod add))))
  