usocket-cvs April 2009

usocket-cvs@common-lisp.net

1 participants
3 discussions

[usocket-cvs] r495 - usocket/branches/experimental-udp/backend
by Chun Tian 04 Apr '09

04 Apr '09

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);

1 0

[usocket-cvs] r494 - usocket/branches/0.4.x/backend
by Chun Tian 04 Apr '09

04 Apr '09

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);

1 0

[usocket-cvs] r493 - usocket/trunk/backend
by Chun Tian 04 Apr '09

04 Apr '09

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);

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

usocket-cvs April 2009