anchor.diff:                 (if (equal (assoc :request request) '(:request :connect))
                      `((:response :connect)
                        (:host ,i) (:hosts ,hosts)
  -                     (:random-state ,mt19937:*random-state*))
  +                     (:random-state
  +                      ,(mt19937::random-state-state mt19937:*random-state*)))
                      (funcall abort-handler)))))
        (format t "Connected.~%"))
       ((:client)
  
positive.code:      (let ((socket (usocket:socket-listen usocket:*wildcard-host* port
                                            :element-type '(unsigned-byte 8))))
         (setf *server-socket* socket
               *local-port* (usocket:get-local-port socket))))
      ((:client)
       (when (eql mode :client)
         (setf *remote-host* host *remote-port* port)))
  
negative.code:              (error "Client didn't understand response.~%"))
             (setf *host* (cadr (assoc :host response))
                   *hosts* (cadr (assoc :hosts response))
                   mt19937:*random-state*
                   (mt19937::make-random-object
                    :state (cadr (assoc :random-state response)))))
         (usocket:connection-refused-error ()
           (funcall abort-handler)))
       (format t "Connected.~%"))
  