anchor.diff:         when (and (null (aref (equipment-of i) pos))
                    (not (illegal-soilpos pos))
                    (not (zerop (char-soilage i pos))))
  -       do (let ((soilage-descs 
  +       do (let ((soilage-descs
                           (loop for bit upto +top-soil+
                                when (char-soiled i pos bit)
                                collect (aref +soilage-bits+ bit))))
  
positive.code:             ;; You might see creatures with infravision
              (case (random-range 0 2)
                (0
                 (format stream 
                         "You see a pair of glowing red eyes looking your way.~%"))
                (1
                 (format stream 
                         "A pair of eyes glow red in the darkness~%"))
                (2
                 (incf unseen))))
  
negative.code:               (format stream "&R(Red Aura)"))
               ((is-good i)
                (format stream "&B(Blue Aura)")))))
  
          (when (and (aff3-flagged ch +aff3-detect-poison+)
                     (or (has-poison-1 i)
                         (has-poison-2 i)
  