Changeset 10877


Ignore:
Timestamp:
Sep 25, 2008, 1:24:12 PM (11 years ago)
Author:
gb
Message:

in C_SOCKET_1: get errno before calling #_CloseHandle if allocating an
fd for the socket fails, just in case.

File:
1 edited

Legend:

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

    r10865 r10877  
    12031203                       (let* ((fd (#__open_osfhandle handle 0)))
    12041204                         (if (< fd 0)
    1205                            (progn
    1206                              (#_CloseHandle handle)
    1207                              (%get-errno))
     1205                           (prog1
     1206                               (%get-errno)
     1207                             (#_CloseHandle handle))
    12081208                           fd)))))
    12091209
Note: See TracChangeset for help on using the changeset viewer.