[usocket-cvs] r347 - usocket/branches/0.3.x/backend

Author: ehuelsmann Date: Fri Jun 20 18:41:17 2008 New Revision: 347

Modified: usocket/branches/0.3.x/backend/sbcl.lisp Log: Implement Juan's latest advice.

Modified: usocket/branches/0.3.x/backend/sbcl.lisp ============================================================================== --- usocket/branches/0.3.x/backend/sbcl.lisp (original) +++ usocket/branches/0.3.x/backend/sbcl.lisp Fri Jun 20 18:41:17 2008 @@ -49,7 +49,7 @@ (defun get-host-name () (ffi:c-inline () () :object - "{ char *buf = GC_malloc(257); + "{ char *buf = cl_alloc_atomic(257);

if (gethostname(buf,256) == 0) @(return) = make_simple_base_string(strndup(&buf,255));