[Openmcl-cvs-notifications] r10877 - /trunk/source/level-1/l1-sockets.lisp

[gb at clozure.com]

Author: gb
Date: Thu Sep 25 09:24:12 2008
New Revision: 10877

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

Modified:
    trunk/source/level-1/l1-sockets.lisp

Modified: trunk/source/level-1/l1-sockets.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/level-1/l1-sockets.lisp (original)
+++ trunk/source/level-1/l1-sockets.lisp Thu Sep 25 09:24:12 2008
@@ -1201,9 +1201,9 @@
                        (%get-winsock-error)
                        (let* ((fd (#__open_osfhandle handle 0)))
                          (if (< fd 0)
-                           (progn
-                             (#_CloseHandle handle)
-                             (%get-errno))
+                           (prog1
+                               (%get-errno)
+                             (#_CloseHandle handle))
                            fd)))))
 =

 =