Changeset 7732

Timestamp:

Nov 24, 2007, 6:30:24 PM (17 years ago)

Author:

Gary Byers

Message:

Check for null interface address.

File:

• branches/working-0711/ccl/level-1/l1-sockets.lisp (modified) (1 diff)

branches/working-0711/ccl/level-1/l1-sockets.lisp

@@ -1458 +1458 @@
                 ((%null-ptr-p q) (nreverse res))
              (let* ((addr (pref q :ifaddrs.ifa_addr)))
-               (when (eql (pref addr :sockaddr.sa_family) #$AF_INET)
+               (when (and (not (%null-ptr-p addr))
+                          (eql (pref addr :sockaddr.sa_family) #$AF_INET))
                  (push (make-ip-interface
                                    :name (%get-cstring (pref q :ifaddrs.ifa_name))