From ctian at common-lisp.net  Sat Apr  4 13:49:18 2009
From: ctian at common-lisp.net (Chun Tian (binghe))
Date: Sat, 04 Apr 2009 09:49:18 -0400
Subject: [usocket-cvs] r493 - usocket/trunk/backend
Message-ID: <E1Lq6FK-0005a9-J5@common-lisp.net>

Author: ctian
Date: Sat Apr  4 09:49:17 2009
New Revision: 493

Log:
[ecl] fix a function name typo, thanks to Juan Jose Garcia-Ripoll, the ECL maintainer.

Modified:
   usocket/trunk/backend/sbcl.lisp

Modified: usocket/trunk/backend/sbcl.lisp
==============================================================================
--- usocket/trunk/backend/sbcl.lisp	(original)
+++ usocket/trunk/backend/sbcl.lisp	Sat Apr  4 09:49:17 2009
@@ -68,7 +68,7 @@
 
   (defun fdset-alloc ()
     (ffi:c-inline () () :pointer-void
-     "cl_alloc_atomic(sizeof(fd_set))" :one-liner t))
+     "ecl_alloc_atomic(sizeof(fd_set))" :one-liner t))
 
   (defun fdset-zero (fdset)
     (ffi:c-inline (fdset) (:pointer-void) :void
@@ -96,7 +96,7 @@
   (defun get-host-name ()
     (ffi:c-inline
      () () :object
-     "{ char *buf = cl_alloc_atomic(257);
+     "{ char *buf = ecl_alloc_atomic(257);
 
         if (gethostname(buf,256) == 0)
           @(return) = make_simple_base_string(buf);



From ctian at common-lisp.net  Sat Apr  4 13:50:01 2009
From: ctian at common-lisp.net (Chun Tian (binghe))
Date: Sat, 04 Apr 2009 09:50:01 -0400
Subject: [usocket-cvs] r494 - usocket/branches/0.4.x/backend
Message-ID: <E1Lq6G1-0005b0-1x@common-lisp.net>

Author: ctian
Date: Sat Apr  4 09:50:00 2009
New Revision: 494

Log:
[ecl] merge r493 from trunk

Modified:
   usocket/branches/0.4.x/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	Sat Apr  4 09:50:00 2009
@@ -68,7 +68,7 @@
 
   (defun fdset-alloc ()
     (ffi:c-inline () () :pointer-void
-     "cl_alloc_atomic(sizeof(fd_set))" :one-liner t))
+     "ecl_alloc_atomic(sizeof(fd_set))" :one-liner t))
 
   (defun fdset-zero (fdset)
     (ffi:c-inline (fdset) (:pointer-void) :void
@@ -96,7 +96,7 @@
   (defun get-host-name ()
     (ffi:c-inline
      () () :object
-     "{ char *buf = cl_alloc_atomic(257);
+     "{ char *buf = ecl_alloc_atomic(257);
 
         if (gethostname(buf,256) == 0)
           @(return) = make_simple_base_string(buf);



From ctian at common-lisp.net  Sat Apr  4 13:50:54 2009
From: ctian at common-lisp.net (Chun Tian (binghe))
Date: Sat, 04 Apr 2009 09:50:54 -0400
Subject: [usocket-cvs] r495 - usocket/branches/experimental-udp/backend
Message-ID: <E1Lq6Gs-0005c3-8k@common-lisp.net>

Author: ctian
Date: Sat Apr  4 09:50:53 2009
New Revision: 495

Log:
[ecl] merge r493 from trunk to make sure building works on ECL 9.4.0

Modified:
   usocket/branches/experimental-udp/backend/lispworks.lisp
   usocket/branches/experimental-udp/backend/sbcl.lisp

Modified: usocket/branches/experimental-udp/backend/lispworks.lisp
==============================================================================
--- usocket/branches/experimental-udp/backend/lispworks.lisp	(original)
+++ usocket/branches/experimental-udp/backend/lispworks.lisp	Sat Apr  4 09:50:53 2009
@@ -248,7 +248,7 @@
 
 (defun socket-connect (host port &key (protocol :stream) (element-type 'base-char)
                        timeout deadline (nodelay t nodelay-specified)
-                       local-host local-port)
+                       local-host (local-port #+win32 *auto-port* #-win32 nil))
   (declare (ignorable nodelay))
 
   ;; What's the meaning of this keyword?

Modified: usocket/branches/experimental-udp/backend/sbcl.lisp
==============================================================================
--- usocket/branches/experimental-udp/backend/sbcl.lisp	(original)
+++ usocket/branches/experimental-udp/backend/sbcl.lisp	Sat Apr  4 09:50:53 2009
@@ -68,7 +68,7 @@
 
   (defun fdset-alloc ()
     (ffi:c-inline () () :pointer-void
-     "cl_alloc_atomic(sizeof(fd_set))" :one-liner t))
+     "ecl_alloc_atomic(sizeof(fd_set))" :one-liner t))
 
   (defun fdset-zero (fdset)
     (ffi:c-inline (fdset) (:pointer-void) :void
@@ -96,7 +96,7 @@
   (defun get-host-name ()
     (ffi:c-inline
      () () :object
-     "{ char *buf = cl_alloc_atomic(257);
+     "{ char *buf = ecl_alloc_atomic(257);
 
         if (gethostname(buf,256) == 0)
           @(return) = make_simple_base_string(buf);