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:         (when (description-of room)
            (send-to-char ch "~a" (description-of room)))))
  
    (send-to-char ch 
                  (case (pk-style-of (zone-of room))
                    (0 "&c[ &g!PK&c ] ")
                    (1 "&c[ &YNPK&c ] ")
  
negative.code:            (format stream "~a struggles blindly in the pitch." name))
            (t
             (format stream "~a~a" name (aref positions (position-of i)))))
  
          ;; Show alignment flags
          (cond
            ((pref-flagged ch +pref-holylight+)
  