anchor.diff:        (funcall (func-of (shared-of ch)) ch ch 0 "" +special-reset+)))
   
     (let ((last-cmd 0)
  +        (last-mob nil)
           (prob-override nil))
       (dolist (zone-cmd (cmds-of zone))
         ;; if-flag
  
positive.code:                       (setf last-cmd 1))
                       (t
                        (setf last-cmd 0))))))))
             (#\P
              nil)
             (#\V
              nil)
             (#\G
              nil)
             (#\E
              nil)
             (#\I
  
negative.code:                  (setf last-cmd 0))
                  (t
                   (let ((mob (read-mobile (arg1-of zone-cmd))))
                     (setf last-mob mob)
                     (cond
                       (mob
                        (char-to-room mob room)
  