anchor.diff:              nr)
   
       (let* ((line (get-line inf))
  -           (result (scan #/^(\d+)\s+([\d-]+)\s+([\d-]+)\s+(\d+)d(\d+)\+(\d+)\s+(\d+)d(\d+)\+([-0-9]+)/ line)))
  +           (result (scan #/^(\d+)\s+([\d-]+)\s+([\d-]+)\s+(\d+)d(\d+)\+(\d+)\s+(\d+)d(\d+)\+([-\d]+)/ line)))
         (assert result nil "Illegal numbers-1 line of mobile ~d: ~s~%" nr line)
         (setf (level-of mobile) (parse-integer (regref result 1))
               (hitroll-of mobile) (- 20 (parse-integer (regref result 2)))
  
positive.code:             (unless (setf line (get-line inf))
                (error "Search error in room #~d." vnum-nr))
  
              (let ((result (scan #/^(\d+)\s+([-0-9]+)\s+([-0-9]+)\s+([-0-9]+)\s+([-0-9]+)(?:\s+(\d+))?/ line)))
                (setf (command-of new-search) (parse-integer (regref result 1))
                      (aref (arg-of new-search) 0) (parse-integer (regref result 2))
                      (aref (arg-of new-search) 1) (parse-integer (regref result 3))
  
negative.code:         (error "Format error room #~d, direction D~d." (number-of room) dir))
  
        (multiple-value-bind (start end reg-starts reg-ends)
            (cl-ppcre:scan #/^(\S+)\s+([\d-]+)\s+([-\d]+)/ line)
          (declare (ignore start end))
          (setf (exit-info-of room-dir) (asciiflag-to-bits line
                                                        :start (aref reg-starts 0)
  