anchor.diff:    (format nil "~{~a~}" (tempus::cxn-output-buf (tempus::link-of ch))))
   
   (defun make-mock-mobile (name)
  -  (let ((mock-cxn (make-instance 'mock-cxn))
  +  (let ((mock-cxn (make-mock-cxn))
           (mobile (tempus::read-mobile 1)))
       (setf (tempus::name-of mobile) name)
       (setf (tempus::aliases-of mobile) name)
  
positive.code: (defmethod tempus::handle-close ((cxn mock-cxn))
    nil)
  
  (defun mock-cxn-input (cxn fmt &rest args)
    (let ((msg (format nil "~?" fmt args)))
      (setf (tempus::cxn-input-buf cxn)
  
negative.code: (defvar *top-mock-player* 90000)
  
  (defun make-mock-player (name)
    (let* ((link (make-mock-cxn))
           (player (make-instance 'mock-player
                                 :name name
                                 :idnum (incf *top-mock-player*)
  