(defun test ()
  (let ((connection (establish-tcp-connection *tcp-port*)))
    (unwind-protect (receive-resolution connection)
      (when connection (usocket:socket-close connection)))))

(defun establish-tcp-connection (port)
  "Creates a listening TCP connection and returns the object for use in multiple functions"
  (usocket:socket-accept (usocket:socket-listen  "192.168.200.4"
			  port
			  :element-type '(unsigned-byte 8))
			 :element-type '(unsigned-byte 8)))