Hi!
I do some corrections in a patch an here is it.
Please answer where we can see this changes in release
Pavel G. Koukoushkin
Moscow, Russia
Index: backend/sbcl.lisp
===================================================================
--- backend/sbcl.lisp (revision 522)
+++ backend/sbcl.lisp (working copy)
@@ -210,7 +210,6 @@
(sockopt-tcp-nodelay-p
(fboundp 'sb-bsd-sockets::sockopt-tcp-nodelay)))
(when deadline (unsupported 'deadline 'socket-connect))
- (when timeout (unsupported 'timeout 'socket-connect))
(when (and nodelay-specified
;; 20080802: ECL added this function to its sockets
;; package today. There's no guarantee the functions
@@ -232,6 +231,7 @@
:input t
:output t
:buffering :full
+ :timeout timeout
:element-type element-type))
;;###FIXME: The above line probably needs an :external-format
(usocket (make-stream-socket :stream stream :socket socket))
_______________________________________________
usocket-devel mailing list
usocket-devel@common-lisp.net
http://common-lisp.net/cgi-bin/mailman/listinfo/usocket-devel
