Changeset 16624

Timestamp:

Oct 20, 2015, 5:09:57 PM (5 years ago)

Author:

rme

Message:

In make-tcp-socket and make-udp-socket, pass the :address-family and
:connect keyword arguments to resolve-address.

In resolve-address, signal a socket-error if getaddrinfo fails and
errorp is t.

File:

• trunk/source/library/sockets.lisp (modified) (3 diffs)

trunk/source/library/sockets.lisp

@@ -626 +626 @@
         (%socket-connect fd
                          (apply #'resolve-address
+                                :connect connect
+                                :address-family address-family
                                 :host remote-host
                                 :port remote-port
@@ -656 +658 @@
              (socket-address (or remote-address
                                  (apply #'resolve-address
+                                        :connect connect
+                                        :address-family address-family
                                         :host remote-host
                                         :port remote-port
@@ -1551 +1555 @@
                              host port connect socket-type)))
               (#_freeaddrinfo (pref results :address)))
-            (values nil err))))))
+            (if errorp
+              (socket-error nil "getaddrinfo" err t)
+              (values nil err)))))))
 
 (defclass ip4-socket-address (ip-socket-address)