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 ()