(defmethod set-tcp-listening ((client client)) "Creates a listening TCP connection using the ip and tcp-port values in CLIENT." (unwind-protect (setf (tcp-server client) (usocket:socket-listen (ip client) (tcp-port client) :reuse-address t :reuseaddress t)) (shutdown-client client))) (defmethod accept-connection ((client client)) (unwind-protect (setf (remote-connection client) (usocket:socket-accept (tcp-server client))) (shutdown-client client))) (defmethod get-and-set-remote-information ((client client)) (unwind-protect (setf (remote-ip client) (get-peer-address (remote-connection client)) (remote-tcp-port client) (get-peer-port (remote-connection client))) (shutdown-client client)))