[usocket-devel] undefined functions

Chun Tian (binghe) binghe.lisp at gmail.com
Wed Jul 7 08:29:03 UTC 2010


Note: the error 10038 was fixed by r533. I need to pass a handle but file descriptor to Win32 function "WSAEventSelect".

--binghe

> Hi, Elliott
> 
> Thanks for your attention.
> 
> Yesterday I used a simple test:
> 
> * (defparameter s (usocket:socket-connect "common-lisp.net" 80))
> * (time (wait-for-input s :timeout 3))
> 
> The goal is to make sure WAIT-FOR-INPUT successfully wait 3 seconds. But when WAIT-FOR-INPUT calling win32 API function "WSAEventSelect" [1] on the new created socket handle, it report WSA error 10038 (WSAENOTSOCK, "The descriptor is not a socket"), a funny result ...
> 
> I followed the same method by USOCKET's LispWorks/win32 port. I think I need to do some tests in pure C code. Not much familiar with Winsock 2.
> 
> --binghe
> 
> [1] http://msdn.microsoft.com/en-us/library/ms741576(v=VS.85).aspx
> 
> 在 2010-7-6,12:22, Elliott Slaughter 写道:
> 
>> Thanks. I'll take it out for a test drive soon. (Are there any known issues you're trying to solve right now?)
>> 
>> On Mon, Jul 5, 2010 at 7:39 PM, Chun Tian (binghe) <binghe.lisp at gmail.com> wrote:
>> Hi there
>> 
>> I'm working on it, and the initial version of WAIT-FOR-INPUT-INTERNAL for SBCL/win32 has been committed into USOCKET trunk [1] on yesterday. Now I'm fixing bugs in it. Maybe you want to help me figure out any issue in my code.
>> 
>> Hope these new code could get stable in a week. Obviously, the goal is to make Hunchentoot running in SBCL/win32.
>> 
>> --binghe
>> 
>> [1] svn://common-lisp.net/project/usocket/svn/usocket/trunk
>> 
>> 在 2010-7-1,23:45, Haris Bogdanović 写道:
>> 
>>> I installed linux as my virtual machine so I'll manage till you finish
>>> wndows version because in linux it works without a problem.
>>> I wrote wrongly atarting a hunchentoot server.
>>> It's (hunchentoot:start (make-instance 'hunchentoot:acceptor :port 8080))
>>> instead of (hunchentoot:start (make-instance '(hunchentoot:acceptor :port 8080)))
>>> but anyway it doesn't work in windows but in linux it does.
>>> It would be nice if you could mail me when yoiu finish windows version ?
>>> How long do you expect it will take you to finish that approximatelly ?
>>> I would like to help you but I'm pretty new to lisp,
>>> I don't know would I be competent for that.
>>> 
>>> Thanks
>> 
>> 
>> _______________________________________________
>> usocket-devel mailing list
>> usocket-devel at common-lisp.net
>> http://common-lisp.net/cgi-bin/mailman/listinfo/usocket-devel
>> 
>> 
>> 
>> -- 
>> Elliott Slaughter
>> 
>> "Don't worry about what anybody else is going to do. The best way to predict the future is to invent it." - Alan Kay
> 





More information about the usocket-devel mailing list