anchor.diff:  (defun net-game-connect ()
     (ecase *mode*
       ((:server)
  -     (format t "Waiting for connection. Please start client.~%")
  +     (format t "Waiting for a connection on port ~a. Please start client.~%"
  +             *port*)
        (with-serve-request (request :timeout nil :max 1)
          (if (equal (assoc :request request) '(:request :connect))
              `((:response :connect) (:random-state ,mt19937:*random-state*))
  
positive.code:   (assert (not (boundp '*mode*)))
    (ecase mode
      ((:server)
       (let ((socket
              (usocket:socket-listen host port :element-type '(unsigned-byte 8))))
         (setf *mode* :server *host* host *port* port *server-socket* socket)))
      (:client
       (setf *mode* :client *host* host *port* port))
      (:normal
  
negative.code:                        :requires-arguments t)))
  
  (defun cli-get-mode (options)
    (let ((port (car (gethash "port" options))))
      (or
       (multiple-value-bind (value exists) (gethash "server" options)
         (when exists
           (list :server (car value) (when port (parse-integer port)))))
       (multiple-value-bind (value exists) (gethash "connect" options)
         (when exists
           (list :client (car value) (when port (parse-integer port)))))
       (list :normal nil nil))))
  
  ;;;
  ;;; Video modes
  