anchor.diff:              (return))))
          (get-line-with-count inf))
   
  -      (let ((result (scan #/^(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\S+)\s+([-0-9]+)\s+([-0-9]+)\s*(\d+)?/ line)))
  +      (let ((result (scan #/^(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\S+)\s+([-\d]+)\s+([-\d]+)\s*(\d+)?/ line)))
   
           (unless result
             (error "Format error in 9-constant line of ~a~%Line was ~s" zonename line))
  
positive.code:                 (parse-integer (regref result 4))
                  0)))
  
      (let ((result (scan #/(\d+) ([-0-9]+) ([-0-9]+)/ (get-line inf))))
        (assert result nil "Expected 3 args in third numeric line, object ~d" nr)
        (setf (material-of obj) (parse-integer (regref result 1))
              (max-dam-of obj) (parse-integer (regref result 2))
              (damage-of obj) (parse-integer (regref result 3))))
  
      (let ((result (scan #/(\d+) ([\d-]+) ([\d-]+)(?: ([\d-]+))?/ (get-line inf))))
        (assert result nil "Expected 3 or 4 args in fourth numeric line, object ~d" nr)
        (set-weight obj (parse-integer (regref result 1)))
        (setf (cost-of (shared-of obj)) (parse-integer (regref result 2))
  
negative.code:                                       (asciiflag-to-bits (regref result 5))
                                        0)))
  
      (let ((result (scan #/(\d+) ([\d-]+) ([\d-]+)(?: ([\d-]+))?/ (get-line inf))))
        (assert result nil "Expected 3 or 4 args in second numeric line, object ~d" nr)
        (setf (aref (value-of obj) 0) (parse-integer (regref result 1))
              (aref (value-of obj) 1) (parse-integer (regref result 2))
  