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