Changeset 12267


Ignore:
Timestamp:
Jun 19, 2009, 6:03:05 AM (10 years ago)
Author:
rme
Message:

In the Windows variant of %GET-IP-INTERFACES, close the socket with
#_closesocket.

File:
1 edited

Legend:

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

    r12165 r12267  
    14321432#+windows-target
    14331433(defun %get-ip-interfaces ()
    1434   (let* ((handle (#_socket #$AF_INET #$SOCK_DGRAM #$IPPROTO_IP)))
     1434  (let* ((socket (#_socket #$AF_INET #$SOCK_DGRAM #$IPPROTO_IP)))
    14351435    (unwind-protect
    14361436    (rlet ((realoutlen #>DWORD 0))
     
    14401440        (%stack-block ((buf reservedlen))
    14411441          (unless (eql 0 (#_WSAIoctl
    1442                           handle
     1442                          socket
    14431443                          #$SIO_GET_INTERFACE_LIST
    14441444                          (%null-ptr)
     
    14691469                          interfaces)))
    14701470                (return interfaces)))))))
    1471       (#_CloseHandle (%int-to-ptr handle)))))
     1471      (#_closesocket socket))))
    14721472
    14731473     
Note: See TracChangeset for help on using the changeset viewer.