anchor.diff:                      (eql (class-of ch) +class-fire+))
       (incf (light-of room)))
   
  -  (let ((light-eq (aref (equipment-of ch) +wear-light+)))
  +  (let ((light-eq (get-eq ch +wear-light+)))
       (when (and light-eq
                  (eql (kind-of light-eq) +item-light+)
                  (plusp (aref (val-of light-eq) 2)))
  
positive.code:       (apply-object-affects ch obj mode))))
  
  (defun apply-skill (ch skill mod)
    (setf (aref (skills-of ch) skill)
          (min (+ (aref (skills-of ch) skill) mod) 125)))
  
  (defun affect-modify (ch loc mod bitv index add)
    (unless (zerop bitv)
  
negative.code: 
  
  (defun equip-char (ch obj pos mode)
    (assert (<= 0 pos +num-wears+) nil "Illegal pos in equip-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 (get-eq ch pos)) nil "~a is already equipped: ~a"
               (name-of ch)
               (name-of obj))
       (setf (aref (equipment-of ch) pos) obj)
  