anchor.diff:                       nil nil :protocol :datagram :local-port port))
               (host (usocket:get-local-address socket))
               (port (usocket:get-local-port socket)))
  -       (setf *local-host* host *local-port* port *inbound-socket* socket)))
  +       (setf *local-host* host *local-port* port *socket* socket)))
       ((:normal)))
     (setf *mode* mode))
   
  
positive.code:   (assert (boundp '*mode*))
    (ecase *mode*
      ((:server :client)
       (usocket:socket-close *inbound-socket*)
       (when (boundp '*outbound-socket*)
         (usocket:socket-close *outbound-socket*)))
      ((:normal)))
    (makunbound '*inbound-socket*)
    (makunbound '*outbound-socket*)
    (makunbound '*mode*))
  
  (defun store-to-buffer (object)
  
negative.code:      (multiple-value-bind (request host port) (net-receive)
         (unless (equal (assoc :request request) '(:request :init))
           (funcall abort-handler))
         (setf *remote-host* host *remote-port* (second (assoc :port request)))
         (net-send '((:response :init)))))
      ((:client)
       (net-send `((:request :init) (:port ,*local-port*)))
       (unless (equal (net-receive :timeout 10) '((:response :init)))
         (funcall abort-handler)))
  