[usocket-cvs] r363 - usocket/trunk/backend

Author: ehuelsmann Date: Sun Jul 13 07:05:40 2008 New Revision: 363

Modified: usocket/trunk/backend/sbcl.lisp Log: Commit change to trunk which should have been there all the time, but got committed to the 0.3.x branch only, for some reason.

Modified: usocket/trunk/backend/sbcl.lisp ============================================================================== --- usocket/trunk/backend/sbcl.lisp (original) +++ usocket/trunk/backend/sbcl.lisp Sun Jul 13 07:05:40 2008 @@ -67,7 +67,7 @@ (defun get-host-name () (ffi:c-inline () () :object - "{ char *buf = GC_malloc(256); + "{ char *buf = cl_alloc_atomic(257);

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