anchor.diff:                (setf (arg3-of new-zonecmd) (parse-integer (regref result 5))))))
   
            (setf (line-of new-zonecmd) cmd-num)
  -         (push new-zonecmd (cmd-of new-zone))
  +         (push new-zonecmd (cmds-of new-zone))
            (incf cmd-num)))
  +
  +      ;; Reverse the commands so they're in the proper execution order
  +      (setf (cmds-of new-zone) (nreverse (cmds-of new-zone)))
   
         ;; Now we add the new zone to the zone-table linked list
         (push new-zone *zone-table*))))
  
positive.code: (defvar *boot-time* nil)
  (defvar *reset-q* nil)
  (defvar *top-unique-id* 0)
  
  (defparameter *no-specials* nil)
  (defparameter *welcome-message
  * nil)
  
  ;; mud-life time
  (defparameter +secs-per-mud-hour+ 60)
  
negative.code: (defvar *rooms* (make-hash-table))
  (defvar *mobile-prototypes* (make-hash-table))
  (defvar *object-prototypes* (make-hash-table))
  (defvar *characters* nil)
  (defvar *zone-table* nil)
  (defvar *default-quad-zone*)
  (defvar *top-of-world* 0)
  