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

Erik Huelsmann ehuels at gmail.com
Wed Dec 26 08:43:30 PST 2007


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!



More information about the Openmcl-devel mailing list