Changeset 7732


Ignore:
Timestamp:
Nov 25, 2007, 2:30:24 AM (12 years ago)
Author:
gb
Message:

Check for null interface address.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/l1-sockets.lisp

    r7624 r7732  
    14581458                ((%null-ptr-p q) (nreverse res))
    14591459             (let* ((addr (pref q :ifaddrs.ifa_addr)))
    1460                (when (eql (pref addr :sockaddr.sa_family) #$AF_INET)
     1460               (when (and (not (%null-ptr-p addr))
     1461                          (eql (pref addr :sockaddr.sa_family) #$AF_INET))
    14611462                 (push (make-ip-interface
    14621463                                   :name (%get-cstring (pref q :ifaddrs.ifa_name))
Note: See TracChangeset for help on using the changeset viewer.