Changeset 8240

Timestamp:

Jan 22, 2008, 10:08:19 PM (17 years ago)

Author:

Gary Byers

Message:

PRIMARY-IP-INTERFACE-ADDRESS looks for an interface that has an
assigned address.

File:

• trunk/source/level-1/l1-sockets.lisp (modified) (1 diff)

trunk/source/level-1/l1-sockets.lisp

@@ -1511 +1511 @@
     (or (find-if #'(lambda (i)
                      (and (eq #$AF_INET (ip-interface-address-family i))
+                          (ip-interface-addr i)
                           (let* ((flags (ip-interface-flags i)))
                             (and (not (logtest #$IFF_LOOPBACK flags))