Changeset 7634


Ignore:
Timestamp:
Nov 11, 2007, 10:40:12 PM (12 years ago)
Author:
gb
Message:

Propagage Gary Palter's fix to %GET-IP-INTERFACES to trunk.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/level-1/l1-sockets.lisp

    r6914 r7634  
    14451445                ((%null-ptr-p q) (nreverse res))
    14461446             (let* ((addr (pref q :ifaddrs.ifa_addr)))
    1447                (when (eql (pref addr :sockaddr.sa_family) #$AF_INET)
     1447               (when (and (not (%null-ptr-p addr))
     1448                          (eql (pref addr :sockaddr.sa_family) #$AF_INET))
    14481449                 (push (make-ip-interface
    14491450                                   :name (%get-cstring (pref q :ifaddrs.ifa_name))
Note: See TracChangeset for help on using the changeset viewer.