[usocket-cvs] r533 - usocket/trunk/backend

[Chun Tian (binghe)]

Author: ctian
Date: Wed Jul  7 04:27:26 2010
New Revision: 533

Log:
SBCL: fixed os-socket-handle by using sockint::fd->handle

Modified:
   usocket/trunk/backend/sbcl.lisp

Modified: usocket/trunk/backend/sbcl.lisp
==============================================================================
--- usocket/trunk/backend/sbcl.lisp	(original)
+++ usocket/trunk/backend/sbcl.lisp	Wed Jul  7 04:27:26 2010
@@ -41,7 +41,6 @@
 
 #+ecl
 (progn
-
   #-:wsock
   (ffi:clines
    "#include <errno.h>"
@@ -150,8 +149,7 @@
                                          (socket sock)))
                (setf (state sock) :READ))))))))
 
-
-)
+) ; progn
 
 (defun map-socket-error (sock-err)
   (map-errno-error (sb-bsd-sockets::socket-error-errno sock-err)))
@@ -475,7 +473,7 @@
       (raise-usock-err (sockint::wsa-get-last-error) socket)))
 
   (defun os-socket-handle (usocket)
-    (sb-bsd-sockets:socket-file-descriptor (socket usocket)))
+    (sockint::fd->handle (sb-bsd-sockets:socket-file-descriptor (socket usocket))))
 
   (defun bytes-available-for-read (socket)
     (sb-alien:with-alien ((int-ptr (* sb-alien:unsigned-long)))
@@ -546,7 +544,7 @@
      waiter))
 ) ; progn
 
-#+ecl
+#+(and ecl win32)
 (progn
   (defun wait-for-input-internal (wl &key timeout)
     (with-mapped-conditions ()