anchor.diff:    (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)))
  +     (let* ((host (or host usocket:*wildcard-host*))
  +            (port (or port usocket:*auto-port*))
  +            (socket (usocket:socket-listen
  +                     host port :element-type '(unsigned-byte 8))))
  +       (setf *mode* :server
  +             *host* host *port* (usocket:get-local-port socket)
  +             *server-socket* socket)))
       (:client
        (setf *mode* :client *host* host *port* port))
       (:normal
  
positive.code: (defun net-game-connect ()
    (ecase *mode*
      ((:server)
       (format t "Waiting for connection. Please start client.~%")
       (with-serve-request (request :timeout nil :max 1)
         (if (equal (assoc :request request) '(:request :connect))
             `((:response :connect) (:random-state ,mt19937:*random-state*))
  
negative.code:   (list (make-instance 'cli-parser:cli-option
                         :abbr "s"
                         :full "server"
                         :requires-arguments :optional)
          (make-instance 'cli-parser:cli-option
                         :abbr "c"
                         :full "connect"
  