Changeset 16624


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/library/sockets.lisp

    r16349 r16624  
    626626        (%socket-connect fd
    627627                         (apply #'resolve-address
     628                                :connect connect
     629                                :address-family address-family
    628630                                :host remote-host
    629631                                :port remote-port
     
    656658             (socket-address (or remote-address
    657659                                 (apply #'resolve-address
     660                                        :connect connect
     661                                        :address-family address-family
    658662                                        :host remote-host
    659663                                        :port remote-port
     
    15511555                             host port connect socket-type)))
    15521556              (#_freeaddrinfo (pref results :address)))
    1553             (values nil err))))))
     1557            (if errorp
     1558              (socket-error nil "getaddrinfo" err t)
     1559              (values nil err)))))))
    15541560
    15551561(defclass ip4-socket-address (ip-socket-address)
Note: See TracChangeset for help on using the changeset viewer.