In make-tcp-socket, close stream (not just fd) when connect fails

library/sockets.lisp

@@ -685,7 +685,20 @@ the socket is not connected."))
 					      :port remote-port
 					      :allow-other-keys t
 					      keys))))
-               (%socket-connect fd socket-address timeout-in-milliseconds)))
+               (let ((err (c_connect fd (sockaddr socket-address)
+                                     (sockaddr-length socket-address)
+                                     timeout-in-milliseconds)))
+                 (unless (eql err 0)
+                   ;; When connect fails, the fd is no longer usable,
+                   ;; and must be closed.  Because we've already made
+                   ;; a stream with this fd, close the fd by closing
+                   ;; the stream.
+                   (close socket)
+                   ;; Don't try to close fd again in the unwind-protect
+                   ;; cleanup form.
+                   (setq fd -1)
+                   (socket-error nil "connect" err nil
+                                 :connect-address socket-address)))))
            (setq fd -1)
            socket))
     (unless (< fd 0)