anchor.diff:    ;; For quad damage bamfing
     (unless (setf *default-quad-zone* (real-zone 25))
       (setf *default-quad-zone* *zone-table*)))
  +
  +(defun reset-all-zones ()
  +    (dolist (zone *zone-table*)
  +      (slog "Resetting ~a (rms ~d-~d)"
  +            (name-of zone)
  +            (* (number-of zone) 100)
  +            (top-of zone))
  +      (reset-zone zone)))
   
   (defun boot-db ()
     (slog "Boot db -- BEGIN.")
  
positive.code:       (slog "Fixed name capitalization in object ~d" nr)
        (setf (char (name-of obj) 0) (char-downcase (char (name-of obj) 0))))
      
      (setf (line-desc-of obj) (string-capitalize (fread-string inf))
            (action-desc-of obj) (fread-string inf))
      
      (let ((result (scan #/(\d+) (\S+) (\S+) (\S+) (\S+)/ (get-line inf))))
        (assert result nil "Expected 5 args in first numeric line, object ~d" nr)
        (setf (kind-of obj) (parse-integer (regref result 1))
  
negative.code:       (setf (gethash (- (mob-idnum-of mob)) *character-map*) mob)
  
        mob)))
  
  (defun read-object (vnum)
    (let ((proto (real-object-proto vnum)))
      (unless proto
        (signal 'object-prototype-not-found vnum))
      (let ((obj (clone-object-proto proto)))
        (incf (number-of (shared-of proto)))
        (incf *top-unique-id*)
        (setf *unique-id-changed* t)
  
        (push obj *object-list*)
        (when (is-obj-stat2 obj +item2-unapproved+)
          (setf (timer-of obj) 60))
        obj)))
  
  (defun reset-zone (zone)
    ;; Send +special-reset+ notification to all mobiles with specials
  