usocket-cvs

usocket-cvs@common-lisp.net

702 discussions

[usocket-cvs] r479 - in usocket: branches/0.4.x/backend branches/experimental-udp/backend trunk/backend
by Chun Tian 26 Nov '08

26 Nov '08

Author: ctian Date: Wed Nov 26 16:18:06 2008 New Revision: 479 Log: [scl] update version requirements for SCL (1.3.9 already released) Modified: usocket/branches/0.4.x/backend/scl.lisp usocket/branches/experimental-udp/backend/scl.lisp usocket/trunk/backend/scl.lisp Modified: usocket/branches/0.4.x/backend/scl.lisp ============================================================================== --- usocket/branches/0.4.x/backend/scl.lisp (original) +++ usocket/branches/0.4.x/backend/scl.lisp Wed Nov 26 16:18:06 2008 @@ -39,9 +39,9 @@ (when deadline (unsupported 'deadline 'socket-connect)) (when timeout (unsupported 'timeout 'socket-connect)) (when (and local-host-p (not patch-udp-p)) - (unsupported 'local-host 'socket-connect :minimum "1.3.8.2")) + (unsupported 'local-host 'socket-connect :minimum "1.3.9")) (when (and local-port-p (not patch-udp-p)) - (unsupported 'local-port 'socket-connect :minimum "1.3.8.2")) + (unsupported 'local-port 'socket-connect :minimum "1.3.9")) (let* ((socket (let ((args (list (host-to-hbo host) port :kind :stream))) (when (and patch-udp-p (or local-host-p local-port-p)) Modified: usocket/branches/experimental-udp/backend/scl.lisp ============================================================================== --- usocket/branches/experimental-udp/backend/scl.lisp (original) +++ usocket/branches/experimental-udp/backend/scl.lisp Wed Nov 26 16:18:06 2008 @@ -39,9 +39,9 @@ (when deadline (unsupported 'deadline 'socket-connect)) (when timeout (unsupported 'timeout 'socket-connect)) (when (and local-host-p (not patch-udp-p)) - (unsupported 'local-host 'socket-connect :minimum "1.3.8.2")) + (unsupported 'local-host 'socket-connect :minimum "1.3.9")) (when (and local-port-p (not patch-udp-p)) - (unsupported 'local-port 'socket-connect :minimum "1.3.8.2")) + (unsupported 'local-port 'socket-connect :minimum "1.3.9")) (let ((socket)) (ecase protocol @@ -62,7 +62,7 @@ (error 'unsupported :feature '(protocol :datagram) :context 'socket-connect - :minumum "1.3.8.2 or ask a udp-patch from SCL maintainer")) + :minumum "1.3.9")) (setf socket (if (and host port) (let ((args (list (host-to-hbo host) port :kind protocol))) Modified: usocket/trunk/backend/scl.lisp ============================================================================== --- usocket/trunk/backend/scl.lisp (original) +++ usocket/trunk/backend/scl.lisp Wed Nov 26 16:18:06 2008 @@ -39,9 +39,9 @@ (when deadline (unsupported 'deadline 'socket-connect)) (when timeout (unsupported 'timeout 'socket-connect)) (when (and local-host-p (not patch-udp-p)) - (unsupported 'local-host 'socket-connect :minimum "1.3.8.2")) + (unsupported 'local-host 'socket-connect :minimum "1.3.9")) (when (and local-port-p (not patch-udp-p)) - (unsupported 'local-port 'socket-connect :minimum "1.3.8.2")) + (unsupported 'local-port 'socket-connect :minimum "1.3.9")) (let* ((socket (let ((args (list (host-to-hbo host) port :kind :stream))) (when (and patch-udp-p (or local-host-p local-port-p))

1 0

[usocket-cvs] r478 - in usocket: branches/0.4.x/backend branches/experimental-udp/backend trunk/backend
by Chun Tian 17 Nov '08

17 Nov '08

Author: ctian Date: Mon Nov 17 12:10:30 2008 New Revision: 478 Log: [bugfix] fix compilation on old ECL which has no sb-bsd-sockets:sockopt-tcp-nodelay defined. Modified: usocket/branches/0.4.x/backend/sbcl.lisp usocket/branches/experimental-udp/backend/sbcl.lisp usocket/trunk/backend/sbcl.lisp Modified: usocket/branches/0.4.x/backend/sbcl.lisp ============================================================================== --- usocket/branches/0.4.x/backend/sbcl.lisp (original) +++ usocket/branches/0.4.x/backend/sbcl.lisp Mon Nov 17 12:10:30 2008 @@ -229,8 +229,10 @@ ;;###FIXME: The above line probably needs an :external-format (usocket (make-stream-socket :stream stream :socket socket)) (ip (host-to-vector-quad host))) + ;; binghe: use SOCKOPT-TCP-NODELAY as internal symbol + ;; to pass compilation on ECL without it. (when (and nodelay-specified sockopt-tcp-nodelay-p) - (setf (sb-bsd-sockets:sockopt-tcp-nodelay socket) nodelay)) + (setf (sb-bsd-sockets::sockopt-tcp-nodelay socket) nodelay)) (when (or local-host local-port) (sb-bsd-sockets:socket-bind socket (host-to-vector-quad Modified: usocket/branches/experimental-udp/backend/sbcl.lisp ============================================================================== --- usocket/branches/experimental-udp/backend/sbcl.lisp (original) +++ usocket/branches/experimental-udp/backend/sbcl.lisp Mon Nov 17 12:10:30 2008 @@ -231,8 +231,10 @@ ;;###FIXME: The above line probably needs an :external-format (usocket (make-stream-socket :stream stream :socket socket)) (ip (host-to-vector-quad host))) + ;; binghe: use SOCKOPT-TCP-NODELAY as internal symbol + ;; to pass compilation on ECL without it. (when (and nodelay-specified sockopt-tcp-nodelay-p) - (setf (sb-bsd-sockets:sockopt-tcp-nodelay socket) nodelay)) + (setf (sb-bsd-sockets::sockopt-tcp-nodelay socket) nodelay)) (when (or local-host local-port) (sb-bsd-sockets:socket-bind socket (host-to-vector-quad Modified: usocket/trunk/backend/sbcl.lisp ============================================================================== --- usocket/trunk/backend/sbcl.lisp (original) +++ usocket/trunk/backend/sbcl.lisp Mon Nov 17 12:10:30 2008 @@ -229,8 +229,10 @@ ;;###FIXME: The above line probably needs an :external-format (usocket (make-stream-socket :stream stream :socket socket)) (ip (host-to-vector-quad host))) - (when (and nodelay-specified sockopt-tcp-nodelay-p) - (setf (sb-bsd-sockets:sockopt-tcp-nodelay socket) nodelay)) + ;; binghe: use SOCKOPT-TCP-NODELAY as internal symbol + ;; to pass compilation on ECL without it. + (when (and nodelay-specified sockopt-tcp-nodelay-p) + (setf (sb-bsd-sockets::sockopt-tcp-nodelay socket) nodelay)) (when (or local-host local-port) (sb-bsd-sockets:socket-bind socket (host-to-vector-quad

1 0

[usocket-cvs] r477 - usocket/branches/experimental-udp
by Chun Tian 14 Nov '08

14 Nov '08

Author: ctian Date: Fri Nov 14 15:51:32 2008 New Revision: 477 Log: [udp] bugfix for SCL, make sure server thread can exit when (QUIT) called, otherwise SCL will hang. Modified: usocket/branches/experimental-udp/server.lisp Modified: usocket/branches/experimental-udp/server.lisp ============================================================================== --- usocket/branches/experimental-udp/server.lisp (original) +++ usocket/branches/experimental-udp/server.lisp Fri Nov 14 15:51:32 2008 @@ -38,5 +38,8 @@ (when (minusp n) (error "send error: ~A~%" n)))))) (error "receive error: ~A" n)))) + #+scl (when thread:*quitting-lisp* + (return)) #+(and cmu mp) (mp:process-yield)))) - (socket-close socket)))) + (socket-close socket) + (values))))

1 0

[usocket-cvs] r476 - in usocket: branches/0.4.x/backend branches/experimental-udp/backend trunk/backend
by Chun Tian 12 Nov '08

12 Nov '08

Author: ctian Date: Wed Nov 12 14:18:15 2008 New Revision: 476 Log: [bugfix] read macro fix for detect on version before 4.4.5 Modified: usocket/branches/0.4.x/backend/lispworks.lisp usocket/branches/experimental-udp/backend/lispworks.lisp usocket/trunk/backend/lispworks.lisp Modified: usocket/branches/0.4.x/backend/lispworks.lisp ============================================================================== --- usocket/branches/0.4.x/backend/lispworks.lisp (original) +++ usocket/branches/0.4.x/backend/lispworks.lisp Wed Nov 12 14:18:15 2008 @@ -98,7 +98,7 @@ (when deadline (unimplemented 'deadline 'socket-connect)) - #+(or lispworks4.2 lispworks4.3) ; < 4.4.5 + #+(and lispworks4 (not lispworks4.4)) ; < 4.4.5 (when timeout (unsupported 'timeout 'socket-connect :minimum "LispWorks 4.4.5")) @@ -118,8 +118,8 @@ (with-mapped-conditions () (comm:open-tcp-stream hostname port :element-type element-type - #-(or lispworks4.2 lispworks4.3) ; >= 4.4.5 - #-(or lispworks4.2 lispworks4.3) + #-(and lispworks4 (not lispworks4.4)) ; >= 4.4.5 + #-(and lispworks4 (not lispworks4.4)) :timeout timeout #-lispworks4 #-lispworks4 #-lispworks4 #-lispworks4 Modified: usocket/branches/experimental-udp/backend/lispworks.lisp ============================================================================== --- usocket/branches/experimental-udp/backend/lispworks.lisp (original) +++ usocket/branches/experimental-udp/backend/lispworks.lisp Wed Nov 12 14:18:15 2008 @@ -255,7 +255,7 @@ (when deadline (unimplemented 'deadline 'socket-connect)) - #+(or lispworks4.2 lispworks4.3) ; < 4.4.5 + #+(and lispworks4 (not lispworks4.4)) ; < 4.4.5 (when timeout (unsupported 'timeout 'socket-connect :minimum "LispWorks 4.4.5")) @@ -277,8 +277,8 @@ (with-mapped-conditions () (comm:open-tcp-stream hostname port :element-type element-type - #-(or lispworks4.2 lispworks4.3) ; >= 4.4.5 - #-(or lispworks4.2 lispworks4.3) + #-(and lispworks4 (not lispworks4.4)) ; >= 4.4.5 + #-(and lispworks4 (not lispworks4.4)) :timeout timeout #-lispworks4 #-lispworks4 #-lispworks4 #-lispworks4 Modified: usocket/trunk/backend/lispworks.lisp ============================================================================== --- usocket/trunk/backend/lispworks.lisp (original) +++ usocket/trunk/backend/lispworks.lisp Wed Nov 12 14:18:15 2008 @@ -98,7 +98,7 @@ (when deadline (unimplemented 'deadline 'socket-connect)) - #+(or lispworks4.2 lispworks4.3) ; < 4.4.5 + #+(and lispworks4 (not lispworks4.4)) ; < 4.4.5 (when timeout (unsupported 'timeout 'socket-connect :minimum "LispWorks 4.4.5")) @@ -118,8 +118,8 @@ (with-mapped-conditions () (comm:open-tcp-stream hostname port :element-type element-type - #-(or lispworks4.2 lispworks4.3) ; >= 4.4.5 - #-(or lispworks4.2 lispworks4.3) + #-(and lispworks4 (not lispworks4.4)) ; >= 4.4.5 + #-(and lispworks4 (not lispworks4.4)) :timeout timeout #-lispworks4 #-lispworks4 #-lispworks4 #-lispworks4

1 0

[usocket-cvs] r475 - usocket/branches/0.4.x/backend
by Chun Tian 12 Nov '08

12 Nov '08

Author: ctian Date: Wed Nov 12 13:39:46 2008 New Revision: 475 Log: [0.4.x] update SOCKET-CONNECT on LW, TIMEOUT is supported. Modified: usocket/branches/0.4.x/backend/lispworks.lisp Modified: usocket/branches/0.4.x/backend/lispworks.lisp ============================================================================== --- usocket/branches/0.4.x/backend/lispworks.lisp (original) +++ usocket/branches/0.4.x/backend/lispworks.lisp Wed Nov 12 13:39:46 2008 @@ -93,11 +93,19 @@ timeout deadline (nodelay t nodelay-specified) local-host local-port) (declare (ignorable nodelay)) - (when timeout (unimplemented 'timeout 'socket-connect)) - (when deadline (unsupported 'deadline 'socket-connect :minimum "LispWorks 5.1")) + + ;; What's the meaning of this keyword? + (when deadline + (unimplemented 'deadline 'socket-connect)) + + #+(or lispworks4.2 lispworks4.3) ; < 4.4.5 + (when timeout + (unsupported 'timeout 'socket-connect :minimum "LispWorks 4.4.5")) - #+(and (not lispworks4) (not lispworks5.0)) - (when nodelay-specified (unimplemented 'nodelay 'socket-connect)) + #+(or lispworks4 lispworks5.0) ; < 5.1 + (when nodelay-specified + (unsupported 'nodelay 'socket-connect :minimum "LispWorks 5.1")) + #+lispworks4 #+lispworks4 (when local-host (unsupported 'local-host 'socket-connect :minimum "LispWorks 5.0")) @@ -110,12 +118,15 @@ (with-mapped-conditions () (comm:open-tcp-stream hostname port :element-type element-type + #-(or lispworks4.2 lispworks4.3) ; >= 4.4.5 + #-(or lispworks4.2 lispworks4.3) + :timeout timeout #-lispworks4 #-lispworks4 #-lispworks4 #-lispworks4 :local-address (when local-host (host-to-hostname local-host)) :local-port local-port - #+(and (not lispworks4) (not lispworks5.0)) - #+(and (not lispworks4) (not lispworks5.0)) + #-(or lispworks4 lispworks5.0) ; >= 5.1 + #-(or lispworks4 lispworks5.0) :nodelay nodelay))) (if stream (make-stream-socket :socket (comm:socket-stream-socket stream)

1 0

[usocket-cvs] r474 - usocket/branches/experimental-udp/backend
by Chun Tian 12 Nov '08

12 Nov '08

Author: ctian Date: Wed Nov 12 13:39:02 2008 New Revision: 474 Log: [udp-branch] update SOCKET-CONNECT on LW, TIMEOUT is supported. Modified: usocket/branches/experimental-udp/backend/lispworks.lisp Modified: usocket/branches/experimental-udp/backend/lispworks.lisp ============================================================================== --- usocket/branches/experimental-udp/backend/lispworks.lisp (original) +++ usocket/branches/experimental-udp/backend/lispworks.lisp Wed Nov 12 13:39:02 2008 @@ -250,11 +250,19 @@ timeout deadline (nodelay t nodelay-specified) local-host local-port) (declare (ignorable nodelay)) - (when timeout (unimplemented 'timeout 'socket-connect)) - (when deadline (unsupported 'deadline 'socket-connect :minimum "LispWorks 5.1")) - - #+(and (not lispworks4) (not lispworks5.0)) - (when nodelay-specified (unimplemented 'nodelay 'socket-connect)) + + ;; What's the meaning of this keyword? + (when deadline + (unimplemented 'deadline 'socket-connect)) + + #+(or lispworks4.2 lispworks4.3) ; < 4.4.5 + (when timeout + (unsupported 'timeout 'socket-connect :minimum "LispWorks 4.4.5")) + + #+(or lispworks4 lispworks5.0) ; < 5.1 + (when nodelay-specified + (unsupported 'nodelay 'socket-connect :minimum "LispWorks 5.1")) + #+lispworks4 #+lispworks4 (when local-host (unsupported 'local-host 'socket-connect :minimum "LispWorks 5.0")) @@ -269,12 +277,15 @@ (with-mapped-conditions () (comm:open-tcp-stream hostname port :element-type element-type + #-(or lispworks4.2 lispworks4.3) ; >= 4.4.5 + #-(or lispworks4.2 lispworks4.3) + :timeout timeout #-lispworks4 #-lispworks4 #-lispworks4 #-lispworks4 :local-address (when local-host (host-to-hostname local-host)) :local-port local-port - #+(and (not lispworks4) (not lispworks5.0)) - #+(and (not lispworks4) (not lispworks5.0)) + #-(or lispworks4 lispworks5.0) ; >= 5.1 + #-(or lispworks4 lispworks5.0) :nodelay nodelay))) (if stream (make-stream-socket :socket (comm:socket-stream-socket stream)

1 0

[usocket-cvs] r473 - usocket/trunk/backend
by Chun Tian 12 Nov '08

12 Nov '08

Author: ctian Date: Wed Nov 12 13:37:41 2008 New Revision: 473 Log: [usocket] update SOCKET-CONNECT on LW, TIMEOUT is supported. Modified: usocket/trunk/backend/lispworks.lisp Modified: usocket/trunk/backend/lispworks.lisp ============================================================================== --- usocket/trunk/backend/lispworks.lisp (original) +++ usocket/trunk/backend/lispworks.lisp Wed Nov 12 13:37:41 2008 @@ -93,11 +93,19 @@ timeout deadline (nodelay t nodelay-specified) local-host local-port) (declare (ignorable nodelay)) - (when timeout (unimplemented 'timeout 'socket-connect)) - (when deadline (unsupported 'deadline 'socket-connect :minimum "LispWorks 5.1")) + + ;; What's the meaning of this keyword? + (when deadline + (unimplemented 'deadline 'socket-connect)) - #+(and (not lispworks4) (not lispworks5.0)) - (when nodelay-specified (unimplemented 'nodelay 'socket-connect)) + #+(or lispworks4.2 lispworks4.3) ; < 4.4.5 + (when timeout + (unsupported 'timeout 'socket-connect :minimum "LispWorks 4.4.5")) + + #+(or lispworks4 lispworks5.0) ; < 5.1 + (when nodelay-specified + (unsupported 'nodelay 'socket-connect :minimum "LispWorks 5.1")) + #+lispworks4 #+lispworks4 (when local-host (unsupported 'local-host 'socket-connect :minimum "LispWorks 5.0")) @@ -110,12 +118,15 @@ (with-mapped-conditions () (comm:open-tcp-stream hostname port :element-type element-type + #-(or lispworks4.2 lispworks4.3) ; >= 4.4.5 + #-(or lispworks4.2 lispworks4.3) + :timeout timeout #-lispworks4 #-lispworks4 #-lispworks4 #-lispworks4 :local-address (when local-host (host-to-hostname local-host)) :local-port local-port - #+(and (not lispworks4) (not lispworks5.0)) - #+(and (not lispworks4) (not lispworks5.0)) + #-(or lispworks4 lispworks5.0) ; >= 5.1 + #-(or lispworks4 lispworks5.0) :nodelay nodelay))) (if stream (make-stream-socket :socket (comm:socket-stream-socket stream)

1 0

[usocket-cvs] r472 - usocket/branches/experimental-udp/backend
by Chun Tian 31 Oct '08

31 Oct '08

Author: ctian Date: Fri Oct 31 17:16:35 2008 New Revision: 472 Log: [udp] bugfix for SCL. Modified: usocket/branches/experimental-udp/backend/scl.lisp Modified: usocket/branches/experimental-udp/backend/scl.lisp ============================================================================== --- usocket/branches/experimental-udp/backend/scl.lisp (original) +++ usocket/branches/experimental-udp/backend/scl.lisp Fri Oct 31 17:16:35 2008 @@ -22,11 +22,11 @@ (defun handle-condition (condition &optional (socket nil)) "Dispatch correct usocket condition." - (etypecase condition + (typecase condition (ext::socket-error (scl-map-socket-error (ext::socket-errno condition) - :socket socket - :condition condition)))) + :socket socket + :condition condition)))) (defun socket-connect (host port &key (protocol :stream) (element-type 'character) timeout deadline (nodelay t nodelay-specified) @@ -48,7 +48,8 @@ (:stream (setf socket (let ((args (list (host-to-hbo host) port :kind protocol))) (when (and patch-udp-p (or local-host-p local-port-p)) - (nconc args (list :local-host (host-to-hbo local-host) + (nconc args (list :local-host (when local-host + (host-to-hbo local-host)) :local-port local-port))) (with-mapped-conditions (socket) (apply #'ext:connect-to-inet-socket args)))) @@ -76,7 +77,7 @@ (ext:create-inet-listener (or local-port 0) protocol :host (when local-host - (if (ip= host *wildcard-host*) + (if (ip= local-host *wildcard-host*) 0 (host-to-hbo local-host))))) (with-mapped-conditions ()

1 0

[usocket-cvs] r471 - usocket/branches/experimental-udp/backend
by Chun Tian 28 Oct '08

28 Oct '08

Author: ctian Date: Tue Oct 28 12:02:38 2008 New Revision: 471 Log: [bugfix] merge from trunk (r469) Modified: usocket/branches/experimental-udp/backend/cmucl.lisp usocket/branches/experimental-udp/backend/scl.lisp Modified: usocket/branches/experimental-udp/backend/cmucl.lisp ============================================================================== --- usocket/branches/experimental-udp/backend/cmucl.lisp (original) +++ usocket/branches/experimental-udp/backend/cmucl.lisp Tue Oct 28 12:02:38 2008 @@ -71,7 +71,8 @@ (setf socket (let ((args (list (host-to-hbo host) port protocol))) (when (and local-bind-p (or local-host-p local-port-p)) - (nconc args (list :local-host (host-to-hbo local-host) + (nconc args (list :local-host (when local-host + (host-to-hbo local-host)) :local-port local-port))) (with-mapped-conditions (socket) (apply #'ext:connect-to-inet-socket args)))) @@ -90,7 +91,8 @@ (if (and host port) (let ((args (list (host-to-hbo host) port protocol))) (when (and local-bind-p (or local-host-p local-port-p)) - (nconc args (list :local-host (host-to-hbo local-host) + (nconc args (list :local-host (when local-host + (host-to-hbo local-host)) :local-port local-port))) (with-mapped-conditions (socket) (apply #'ext:connect-to-inet-socket args))) Modified: usocket/branches/experimental-udp/backend/scl.lisp ============================================================================== --- usocket/branches/experimental-udp/backend/scl.lisp (original) +++ usocket/branches/experimental-udp/backend/scl.lisp Tue Oct 28 12:02:38 2008 @@ -66,7 +66,8 @@ (if (and host port) (let ((args (list (host-to-hbo host) port :kind protocol))) (when (and patch-udp-p (or local-host-p local-port-p)) - (nconc args (list :local-host (host-to-hbo local-host) + (nconc args (list :local-host (when local-host + (host-to-hbo local-host)) :local-port local-port))) (with-mapped-conditions (socket) (apply #'ext:connect-to-inet-socket args))) @@ -74,9 +75,10 @@ (with-mapped-conditions () (ext:create-inet-listener (or local-port 0) protocol - :host (if (ip= host *wildcard-host*) - 0 - (host-to-hbo local-host)))) + :host (when local-host + (if (ip= host *wildcard-host*) + 0 + (host-to-hbo local-host))))) (with-mapped-conditions () (ext:create-inet-socket protocol))))) (let ((usocket (make-datagram-socket socket)))

1 0

[usocket-cvs] r470 - usocket/branches/0.4.x/backend
by Chun Tian 28 Oct '08

28 Oct '08

Author: ctian Date: Tue Oct 28 12:02:01 2008 New Revision: 470 Log: [bugfix] merge from trunk (r469) Modified: usocket/branches/0.4.x/backend/cmucl.lisp usocket/branches/0.4.x/backend/scl.lisp Modified: usocket/branches/0.4.x/backend/cmucl.lisp ============================================================================== --- usocket/branches/0.4.x/backend/cmucl.lisp (original) +++ usocket/branches/0.4.x/backend/cmucl.lisp Tue Oct 28 12:02:01 2008 @@ -69,7 +69,9 @@ (setf socket (let ((args (list (host-to-hbo host) port :stream))) (when (and local-bind-p (or local-host-p local-port-p)) - (nconc args (list :local-host local-host :local-port local-port))) + (nconc args (list :local-host (when local-host + (host-to-hbo local-host)) + :local-port local-port))) (with-mapped-conditions (socket) (apply #'ext:connect-to-inet-socket args)))) (if socket Modified: usocket/branches/0.4.x/backend/scl.lisp ============================================================================== --- usocket/branches/0.4.x/backend/scl.lisp (original) +++ usocket/branches/0.4.x/backend/scl.lisp Tue Oct 28 12:02:01 2008 @@ -22,11 +22,11 @@ (defun handle-condition (condition &optional (socket nil)) "Dispatch correct usocket condition." - (etypecase condition + (typecase condition (ext::socket-error (scl-map-socket-error (ext::socket-errno condition) - :socket socket - :condition condition)))) + :socket socket + :condition condition)))) (defun socket-connect (host port &key (element-type 'character) timeout deadline (nodelay t nodelay-specified) @@ -45,7 +45,8 @@ (let* ((socket (let ((args (list (host-to-hbo host) port :kind :stream))) (when (and patch-udp-p (or local-host-p local-port-p)) - (nconc args (list :local-host (host-to-hbo local-host) + (nconc args (list :local-host (when local-host + (host-to-hbo local-host)) :local-port local-port))) (with-mapped-conditions () (apply #'ext:connect-to-inet-socket args))))

1 0

← Newer
1
...
20
21
22
23
24
25
26
...
71
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

usocket-cvs