(defun listen-to-inet-port (&key (port 0) (kind :stream) (reuse nil))
"Create, bind and listen to an inet socket on *:PORT.
setsockopt SO_REUSEADDR if :reuse is not nil"
+ (declare (ignore kind))
(let ((socket (make-instance 'sb-bsd-sockets:inet-socket
:type :stream
:protocol :tcp)))