[usocket-cvs] r478 - in usocket: branches/0.4.x/backend branches/experimental-udp/backend trunk/backend

[Chun Tian (binghe)]

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