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

[gb at clozure.com]

Author: gb
Date: Thu Oct 23 06:11:42 2008
New Revision: 11209

Log:
Don't need to do U32->S32 conversion in SET-SOCKET-FD-BLOCKING because
of r11208.

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 Oct 23 06:11:42 2008
@@ -565,7 +565,7 @@
 (defun set-socket-fd-blocking (fd block-flag)
   #+windows-target
   (rlet ((argp :u_long (if block-flag 0 1)))
-    (#_ioctlsocket fd #.(u32->s32 #$FIONBIO) argp))
+    (#_ioctlsocket fd #$FIONBIO argp))
   #-windows-target
   (if block-flag
     (fd-clear-flag fd #$O_NONBLOCK)