anchor.diff:  (defun char-output (ch)
     (format nil "~{~a~}" (tempus::cxn-output-buf (tempus::link-of ch))))
   
  -(defun make-mock-player (name room-num)
  +(defun make-mock-player (name)
     (let* ((link (make-instance 'mock-cxn))
            (player (make-instance 'tempus::player
                                  :name name
  
positive.code:     (setf (tempus::account-of link) account)
      (setf (tempus::account-of player) account)
      (setf (tempus::state-of link) 'tempus::playing)
      (push link tempus::*cxns*)
      (tempus::char-to-room player (tempus::real-room room-num))
      player))
  
  (defun destroy-mock-player (ch)
    (tempus::char-from-room ch)
    (setf tempus::*cxns* (delete (tempus::link-of ch) tempus::*cxns*)))
  
  (defmacro with-mock-players (vars &body body)
    `(let ,vars
  
negative.code:             ,@(loop
                   for var in vars
                   collect `(setf ,var
                                  (make-mock-player ,(string-capitalize var))))
              ,@(loop
                   for var in vars
                   collect `(setup-mock-player ,var 3013))
              ,@body)
         (handler-case
             (progn
  