[Openmcl-devel] Setting time out value when creating a connected stream socket with MAKE-SOCKET

[Erik Huelsmann]

Hi,


I'm still the maintainer of usocket [a cross Lisp, cross OS portable
sockets abstraction layer/portability layer]. I've been kindly
requested to extend the functionality of usocket with a user
configurable time out period on a connected stream socket.
Unfortunately, I've been unable to determine how I should achieve that
with CCL. Since you have chosen to provide nearly the same interface
as Franz, this is how Franz does it:

(sys:with-timeout (<time-out-value> :connection-timed-out)
  (make-socket :type :stream :connect :active :host
"www.common-lisp.net" :port 80))

which returns :connection-timed-out upon timeout.

SBCL and CMUCL will allow me to implement the above using non-blocking
sockets, but it looks like CCL won't let me create non-blocking
sockets either...

Could you give me any advice or pointers on how to proceed?


Thanks in advance!

bye,


Erik.
http://www.common-lisp.net/project/usocket/