anchor.diff:            (proto-of (shared-of mobile)) mobile
             (name-of mobile) (fread-string inf)
             (short-descr-of mobile) (fread-string inf)
  -          (long-descr-of mobile) (fread-string inf)
  +          (long-descr-of mobile) (string-right-trim '(#\return #\newline)
  +                                                    (fread-string inf))
             (description-of mobile) (fread-string inf)
             (str-of (real-abils-of mobile)) 11
             (str-add-of (real-abils-of mobile)) 0
  
positive.code:         (t
           (setf (gold-of mob) (rand-value (gold-of mob)
                                           (truncate (* (gold-of mob) 0.15))
                                           -1 -1))
           (setf (cash-of mob) (rand-value (cash-of mob)
                                           (truncate (* (cash-of mob) 0.15))
                                           -1 -1))))
  
        (push mob *characters*)
        (setf (gethash (- (mob-idnum-of mob)) *character-map*) mob)
  
negative.code:   (dolist (ch *characters*)
      (when (and (eql (zone-of (in-room-of ch)) zone)
                 (mob-flagged ch +mob-spec+)
                 (func-of (shared-of ch)))
        (funcall (func-of (shared-of ch)) ch ch 0 "" +special-reset+)))
  
    (let ((last-cmd 0)
          (prob-override nil))
  